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1 . Scones and Program Format 

An SPL program is organized into blocks ■ ' A block bog ins 
with a PROGRAM or CCMMCiT statement and ends with an END 
statement. It has a name which is given in its initial 
sti'leiv/vit ■ Block names must bo unique over the entire 
program. ' Thus the general format of a program is: 

= Jblock ; 



program 

block 
coiraion: block 

uroo ran '.block 



block: head 



allocation: statement = 



label 



prograr.i:block / common: block; 

"COMMON" identifier ";" 
block:head endrstater.cnt ";"; 

"PROGRAM" identifier ";" 
block: head 
$($ (label -:'l) 
action : sta terr.ent ":") 
end: statement ";"; 

? (include: statement ":") 
5 (allocation: statement " ; ") 
$ (dcclare-.statenent ";") ; 

£ jxec! : s t~ tement / 
or J g i n : s ta temen t ; 

identi f icr ; 
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Thus, statements must occur in a block in the order: 

PROGIIAM or CCMMCS sta tenant 
include : s tatcmer.ts 
allocation: statements 
declare : r.tat"i:ients 
ac L ion s s ta temen ts 
end: statement 

A COTP"ion:block must precede any blocks which INCLUDE it. 

Every statement ends with a scni-colon . 

Carriage returns and blanks are treated according to 

the following rules: 

1) inside string constants or character constants 
'blanks are treated like ordinary characters. 

Carriage returns are illegal in string and 
character constants (unless written with the '&' 

escape convention) . 

2) elsewhere a string of carriage returns and blanks 
ic equivalent to a single blank. 

3) a bl-ink nay appear anywhere except in the middle 
of a token. Tokens include nanes, reserved words, 
constants, special characters and the sequences 
"<=■" ■'>=•• "**" "//"• 

o r. v- 1. v..\i. riy.c those rules somewhat sloppily we say that carr.i; 
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returns and blanks are ignored except in string constants, 
names, and reserved words. 

A cofracnt has the form: 

comment = ((carriage return]) "*" ((arbitrary 

mLi.'Jikj li C' i')u> :. a<' L«M,'a mil lnc!ii'1in«j 
carriage return) (carriage return) / 
"/*" (arbitrary string of characters 
not including " */" or carriage return) 
("V" / (carriage return)); 

The first form of comments is exactly equivalent to a 
carriage return . The second form is equivalent to a blank 
if it ends with "*/", a carriage return if it ends with a 
cu'riago return; the difference is apparent only if it is' 
immediately followed by "*". 

Koto that a ir.u!.ti-line comment must have an * or /* at the 
start of each line. 

1.2 SCQ1-Q5 

Each variable is declared in some block and is said to be 
loc;,:]_ to that block. The same identifier may refer to two 
different variables which are local to different blocks. 
The variable name together with the block name, however, 
is sufficient to identify the variable uniquely. A 
variable is said to be LOCAL in scooc if it is local to a 
proij3-i.i.m block, CC.'L'.OM if it is local to a common block. 
i'i.'p,cti.on na.v.es (i.e. names which, appear immediately after 
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f'U:!CTIO:l or ENTRY) are GLOBAL in scope, however. 

A variable may be referenced only in a block in vhich it is 
defined . Any variable is defined in the block to which it is 
lru-;il . Snppor-.r. thai" hi O'-k C includes COW.O.'T blocks Bi 
(i-l,...,n) in that order. Then a variable defined in Bj 
is also defined in C unless it is local to C or de fined iiv 
Li,i>j. T. blcck includes B if B appears in the identifier: 
list of an include : statement in the block. 

inelude:str-itonmmt = "INCLUDE.;" identifier: list; 

identifier: lis t = identifier ?(","' identifier} r 

All GLOBAL variables are considered to be defined in a GI.OWL 
CC.'-"''.CN T block vhich is considered to be included in every block 
which contains no include tstatements . 

The effect of this convention is that declarations in 

COMMON blocks can be overridden by other declaration nearer 

the point of use. Exception: a MACRO name cannot bo ovciridUc 

Kotc that if 2 includes A and C includes B, then, the variables 

local to A arc defined in C (unless variables of the same 

name are local to B or C) . A declaration overriding sn BICLUPF: 

must occur before any reference to the variable involved. 

Sec figure 1, for an illustration. 
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?icure 1: Determining Define:' 'Variables 



GLOBAL variables' 
Defined: <F>P,U, <G>V 



'J COV.MO:l A; ■' 
j Defined: <(:•'> V, <G> V, <A> P, 



\ 




COMMON' E? 
I ViV.rr.AV?, R ; S; 

DC fined ; •(?> J?, U, <G> V, <E> E, S 



' common D; 
INCLUDE A; 
DECLAPJ3 I, J,H; 
Defined: <F>u, <C>V. ' 

<A>?,0,<D> 
X,J,K 



V 



PROGRAM F: 
INCLINE, C,D; 

DECLf»KK I,; ■ 
EK'I'Ay P; 

t 

j Dcfi nc'J : <F> 7,, P, u, <G>V, 

[_ <A>Q, <!')> 1, J, M, <C>N 

^;P mans the P local to f 




COHXCW E; 

'INCLUDE B,D; 

DEC! ARK J,R; 

Defined: <F>U, <G>7, <B>~, 

<E>J,R 



PROSp^! G; 

INCLUDE E; 

DI'XrAKF, J, K: 

ENTRY V; 

jno f i ncC, : <F> U, <G> V, J, K, <B> S . 
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i 2 :i . Declar ations 

i • 

I 2 . 1 Sanes 

jA tirmo is o. sequence of not more than 16 characters starting 
with a letter,' each of which must be cither alphanumeric cr 
an ' (apostrophe) . 



t.2 Attributes 



V,. 






'.very m;ie has three attributes: scope, typ?, and 7T\oc!e . .Each 
Ls chosen from a fixei set of alternatives: 



"CCi'KCM" / "LOCAL" / "GLOBAL' 
ntyps'/ "STP.IXG" [length] '; : 



tvt'O 



ntyjio 



integer / "REAL" 1 / "DOCBLE"'/ "COMPLEX" / 

"larli," '/ "i,o.vg" / "lo\-gi,o;;g" / 
"fikctiom" / "field" / "array" / 

•'UK'JC'G',--:" ;' ' 

"ISTFGSR" / "OCTAL"'/ " OiAKACT?^" / ■■' 
"POINTER" ; ' 

"FUNCTION" / ["SIGNED"] "FiEiD" "'[form] / 
("A'RRAY" / "AKR/'.i'&k:-:") [c.i-icnsion]/ 
" SCALAR " j ' 

L'otc that FUNCTION ARPAY's end AVcFAY FUNCTION'S r.ro both 
posiaiblc. ' 



integer 



mode 



o 



L *..<»*■* kj****!*" !• 
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The type of scalar value d-sterniines its sine: integer, 
function and fjclS are one word; long, real; array, and 
label, two- string., double, longlong; and cox.plbx, four; 
An array is represented by a two-word descriptor, as is a 
label scalar. A function scalar is represented by a pointer 
to i;M two-word descriptor. A field scalar is cither a 
constant; if its form is specified; or occupies a single 
word. Trie four cases of integer are included to permit 
intelligent printout of the value during debugging and so 
that the system can adjust the values of pointer.-, when 
objects are seved around. It is important to declare as 
POIin/BR all integer variables which are to contain addresses 
during execution if it is desired to continue execution after 
r.r .>;.:. Tying the program. The compiler recognizes only one type 
of integer, and the. others will not bo mentioned again. 

If a name has mode ARRAY (or ARRAYOME; they are identical 
excrut that the latter causes subscripts to start at 1 
rathe-r than $) , subscripted references to it v/ill be compiled 
on the assumption that indirection through the descriptor 
with the subscript in IR will produce the effective address. 
It is cilso possible to subscript IKTEGIti SCAIARS; .such 
references will add the value of the nar.e to the subscript 
to produce the effective address. 

If a name is a field without a form, tailing (".", "$" or 
"9") vill c--'iise indirection through the location allocated 
to it. If it has a form, it is treated as a constant and 
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and the code compiled depends ch whether it is full- or 
part-word. if a field appears without tailing; it is 
treated as an integer whose value is the field descriptor 
if the field had a font., and the contents of the location 
allocated to it otherwise. if a field is SIGKKD; the top 
hit -m be copied into all the higher bit positions of a 
24-bit word when the fieid is used to fetch a datum. Other- 
wise, these bit positions (if any) will be filled with zero. 

2 ; 3 Atj^ibut^^jodifiers 

The shapes and sizes of things are specified by "modifiers ■ 
(dimensions, forms and lengths) which have already appeared 
in the syntax for attribute names. Throughout, the expres- 
sions must evaluate to constants at compile time. This 
mean* that all the operands must be constant, See "Constants' 
below for a discussion of what operands are regarded as 
constant. 

?. . 3 . 1 Cint?_n ?Li°J2£ 

dimension - "t" expr $("," expr) 

[":" texprl I ", " expr] 1 "1 "; 

Arrays of any dimensionality up to 7 are allowed. The 
expression following the colon specifies the number of words 
allocated to each element of the array; this nahes it easy 
to create tables with multi-word entries. The size of en 
element is limited to 64 vords. If it is not specified, it 
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in taken to be the size of the scalar object with the sar.io 
attribute's as the declared array. If an array is given an 
element size different from the one implied by its type, 
then subscripting it yields an expression of type UNKNOWN. 
Sec "Impression" below for the implications of this. 

The second expression following the colon tellw where to 
allocate the first word of the array. If it is absent, 
the array is allocated using standard policies described 
below under "Allocation." 

2.3.2 Length 

length 



' ( " expr [ " : " C exprl t ", " exprl 1 " ) 



The string length is specified in bytes by the first expres- 
sion. The second expression gives the byte size, chosen frot.i 
6, 8, 12, and 24; 8 is the default value. The third expres- 
sion tells whore to allocate the first word of the string. 

If an array or string lacks dimension or length, no space 
is allocated and no descriptor created by the compiler. In 
this case an array is assumed to take one subscript. 
If these, elements are present, space is assigned to the local 
environment if the scope is LOCAL, and the descriptors arc 
initialized at function entry. If the scope is COMMON, 
space is assigned in the proper common block and descriptors 
comoiled into this block. See "Allocation" for detail:.. 
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2.3.3 Form 



form 



word: displace- 
ment 



starting;bit "," ending:bit] 

")" ;. 

expr; 



starting:bit » expr; 

ending-.bit = expr; 

A form specifics the word displacement and left: and right- 
most bits of a field. If the bit numbers are omitted, and 
23 are used. A field may not cross a word boundary. 

A declaration consists of a list of names together with 
specification of scope, type and node, and possibly 
of initialisation and equivalence. Thus: 

dcclarorclause = [type] [mode] item; 



item 



= identifier [form/ [dimension] [length]] 
[equivalence] [initialization] ; 



declarc:clauso: . j 

list ■ declarc:clau«e $("," declare: clause) ; j 



declare: stair- 



"DECTARE" deelare;c?ause: list / 
macro : statement ; 



Urc 
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ecu! vale nee = " = " icli-ntii'ier [ too script : ii st] / 


{"h"' / "G'"5 subscript? lint)/ exprer.si.crO 


oobner let: list = "[" expression ${"," expression) "]"; 


initialisation = '*<-" (expression / "{" exprosso'on 


$(*," expreroioni "5" ) ; 


h i"cr'":ir;iiion in prnrcsfd fror. left to right. Tie ottriboiee 


are initialised as follows; 


scops - is determined by whether the declaration 


1 is in a progenou (LOC/.t,) or a CCM-HH Mock 


typo - IKTEOtR 


mo6<~' - St? AJAR 


The values of toe three euitrihwttr arc eailrci tiio jAyAn oT 


tine A elurA » on , Occorror.ce of :~i":.tri*butf> syeeiile'e: moy ehnngc 


tiio Kioto, A nonr- is given the attri'bnton which arc in iiio 


state Aton it is €T;eourrboreci ; except foot the form, clioore;io:y, 


or length, if appropriate, may follow the roe-ie as AAieatee, 


in the syntoo of it"o , FirtlCTIGH, FIBIA, P.r.O AyAA arc tA.en 


a.o specifying mode unlo-ss itefseci. lately followed by a morio onto, 


in which ee.no tlhey specify type. Occurence of a tore vrord 


sot:- the ssir to SCALAR; occurence of n tooAa Voril leaver, tic 


typr" ynrheonoA 'jroorov;;.; ~CAIA!';; ore not alJon'o:!, 


ex/apt to 


DWT.AKM JAiAGth ft, B, STRING C, AEAcA D, 'E I.&1 , 




MT'AV [10] j.y Q {5:12} ; 
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declares integer coalers A an<3 B, string scalar c, string 
arrays D., E, «* , aoo G. The array D is not nsnig^eq rosy 
sioonoo, bot " is snniorsoc! c el>r:<"nte ar-J f and g got iO . 
Exc'-nrt fox G, no space in, assigned for the string values ano 
all the strings rtaroa 8-bit bytes; onnh cAnnO of G is 
acsion-A seoce r nr 3 iiytoo at 12 bits "art. Ail theae thAoart 

nrr. Jo-mI , 

Certain constructions perniittci by the above syntax am for- 
bidden because no reasonable fiiocirungs ecu be atierVA to thee. 

3} Objects of typo .VlP.oY or fyiry; v? th mono ytoy: yvy; 

or fiEJuD do not need dioonnioop one! longthn. and 
to give then, as pari, of the item. i= v; n error. 

2) ft torn rev ayyoer only if t'Ye it'tcA: in ?IST~', a 

di o"i:siors only i* ft" it.cie in AtPaay , a leooth 
only if the tyre is SOinilhi . 

2,5 Equina! ynro 
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a dimensioned array or a' string,- it's descriptor is assigned to 
the same location' as the object (to allocate ' the storage for 
array or string values,' see above) ;' otherwise the subject 
itself is assigned to the sai.o location as the object. No 
account is taken of the possibility that the subject may 
occupy more space than has been allocated for the object. 
For sonio details and restrictions, see "Allocation". 

2_. fi Initialization 

Initialisation of scAU"is has the following weaning: if no 
equivalence is present, the identifier being declared becomes 
syr.onyir.Dup with the .initialization quantity. For INTEGERS 
vVi.v.-h lies in l-2 r J$$~ii, 1777B] . no space in allocator'; for all 
other typos, and for INTEGER? outside this range, space is 
allocated to hold the constant value in RSGS (for COiXMOM 
bloehs) or CS (for PROGAW.s) . If an equivalence appears, the 
'object rr.ust be an absolute location (see "Allocation"), a 
scalar or array element with scope = COMMON, or an element 
of an initialised local array, and the initialization 
quantity will be stored into the variable, wherever it may be. 

For each type of SCALAR, the initialisation quantity iv.v.r.t be 
a constant of -chat type, A LONG or a ADNGI.ONG may be 
initialized with a string constant or vith a list of integers,; 
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this is the only way in introducing constants of these types 
into an SPL program. An initialized STRIXG must not have 
a length. 

Kurv.crjc initialised va-iables, if not equivalence, may be 
re-initialized. This 'is promarily useful for things likfi 

defining rialas, etc., u:...i.ug a vCf-^ - 

block A includes bloc's I', rv-initl. J .H^iion Ly u <U:cIa r,-.,- 
tion. in A of a variable acquired from B has no effect on B 
or anv other block that includes 3.. 

initialization of FLECTIONS s is done with a single naracr 
otherwise the corner ts above apply- Initialization of 
FIEI.Ms is illegal r the way to do this is to specify the 
; form explicitly. 

An ARRAY is Initialized with a list of constants of the 
; appropriate typo. (Elements of the list are separated by 
eomtias and the list is enclosed' in parentheses, as usual'.)' 
A FIELD- ARRAY maybe initialized' with constant FIELD SCALARs; 
an ARRAY ARRAY may be initialized' with names of arrays which 
have been declared with elisions. The elements of the list 
go into successive. elements of the array, starting with the 
first one. For Multi-dimensional arrays, the last subseript 
varies most, rapidly, just as the array is actually stored. 







1 




is 





A ?:p^cial feature allows Ini tializatic.-, at a lator t:.~'2, 
ci further c.T.c-.'-'nt.s of an arrav' son? of whoso e tenants 
hyyc- ;ilr>-uc!y bueri ini tia 1. 5 "?cci . If X In a feclrrec;, 
init.i;'ilz 7,06 jrrj/, then the spprs rancr cf 

J'. rr/rrcript; list ir.i tirilirat *.o«'i 
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3 Copf^nt- 

for each type there is a ryn'.,?.x for constants-, rearesen* inc: 



;rsi.:>nt = simple; integer / ehrtrstterrconyhr -its 
^g-r ,= digit $(Bioit1 f "I> - [il.i -jitl ] ; 



character ; eo'istrint 



p r. e u <h:> ; c h a r a c t e r 



A chcractfr conrtmt allows l:? ta three .?-bit or tour G-bit 
ch-; aider 5 to be rich t -justified in a 2.1-bit wore' to rr.."V tr. 
intcoje-. pro'jrk.-.eMractrrs p ., rnit q , J0tes and ~ - V;;ol ch , r _ 
r ' c '" rf to <>?rc^r; the Utter rro sroei.ficJ by the let!:--- wiost 
coio is Icje by liOli . 

3,2 if;,] Corntcntr 






rJEplc^rraiiecriiUnc =- digits '• . ■• <; (ciic-i t) / 

exp — ont = « E - Ki _,, digits: 



di;itr ; 



;i 
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sign = ["+" / "-"] ; 

real : constant = simple:rcal;constant [exponent] / 

digits exponent; 
digits = 1$ (digit); 

The moaning of this should be obvious; the given decimal- 
approximation to a real number is converted to the closest 
approximation possible in the machine's 4S-bit binary repre- 
sentation. 

- -3 Double Constants. 

fiouble:constant = (simple: real: constant / digits) "D" 
t"+" / "-"] digits; 

In this case the machine's 96-bit binary representation is 
used. bJote that D nvist appear in a double constant; and 
that either , or E r.iust appear in a real constant. 

3 • ''" lddi-2 ill? r y Constants 

imaginary : constant = (real:constant / digits) "I"; 

Complex constants may be constructed by arithmetic on real: 
constants and imaginary: cons tants; such arithmetic is 
performed at compile time, resulting in a single complex 
constant in the object coc?o . 
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strincj-oonstant = ('6"' / 'S"" / '"') $(pse;ic!o: 
character) ' " ' ; 

The value is a string with the specified sequence of charac- 
ters encoded in 8-bit (default case) or 6-bit bytes as speci- 
fied. 

3 . 6 Label Con s tants. 

label; constar 



= identifier; 



•the identifier must not appear in a DECLARE statement: it must 
,T.ppco.r as a label exactly once in the function, i.e.. at the 
beginning of a statement and followed by a colon. 

3.7 Constant Expressions' 

The compiler will evaluate any expression consisting entirely 
of constants and standard functions and thus v.-ill treat it 
like a single constant. 
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4 . ■ Data Ttonnats 

I 

; The 'formats of 'the- various kind'-, of valxics (i'.'e; the binary 
; representations) arc in great part determined by the hard- 
ware of the machine. We summarize then here for 'completeness, 
'ana to specify a few conventions established by SI'L. Refer 
to the CPU manual for the exact word layouts. 

Ili^'i'T;: .lir ?-1-hil: twofi compT ^fion t , 

Long;; are 48-bit enntnti ties . »!e operations are defined 

i 

on them except general ones for moving and decompos- 
ing any data object. 
Long longs are 96-bit, but otherwise identical to long;;. 
Reals are 4S-bit: sign, 11-bit exponent and 30-bit 

fraction. 
Double precision real numbers are 96-bit; the format is 

identic-al to that for reals, except thatthe fraction 

is 81 -bit. 
Comdex numbers are 9G-bit and consist of two reals. 

The real part is the first, the imaginary, the 

second. 
Strings are four-word (96-bit) objects. Each word is 

in the form of a hardware string descriptor; 

Hi VS Func tion 

0-1 =2, to specify a string descriptor 

2-3 byte size: fT-G-bit, 1-3-bit, 2^12-bit, 

3^ 21-bit 
4-5 byte number in word, counting from left 
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word address 



The four words are used as follows: 
0: start of string 

1: reader pointer 
2: writer pointer 
3: end or string 

I,abel:i use the h.->rrlw.-irn ' r. V.r,T, descriptor, which in too 
complex to be described here. Functions are represented by 
pointers to their BLT. descriptors. 

Fields use the hardware's field descriptor: 

0-1 =1, to specify a field descriptor 

2 set for SJCM^'J field 

3-7 length in bits 

8-12' bit address of first bit 

13-23 word displacement 

Arrays use the hardware's array descriptor, which is a two 
word object with the following form: 

0-1 =3, to specify an array descriptor 

2 lower bound (0 or 1) on subscript 

3 set for marginal index descriptors (sec below) 

4 Jargo e lenient bit 






i^^\ 



M fc^,Afcfc>j*U M <MVM 'K h V ii1 l H'itil »E I U LM^.Ml*M£.4 



-V. .{■ „ 



p/c-,-..r 



EPr../M-1.2 



?1 



tf : 5-C or 
5-10 



jlti^>lier (element size) 



-.7-23 or 

U.-23 upper bound on subscript 



1 t 6-23 



:s of first word of array 



Arrays of dimension >1 ace handled by marginal indexing; 
see the discussion of arrays bo low. 



JnLi- ins j.c luiicLlonu will <!.\I:iL ti. 
all those descriptors. 



••.M.I ^••..il.-l! ' "■•! 



o 



!)CC 



Ri-n.r 



EPl./V-l.? 



ftyp-o 

function: locat inn 



5 . FuricJJ^nJ5(^ LMVlti oj2_e 

The syntax is 

function; statement = ftype ("FUNCTION"/ "ENTRY") 

identifier "(" [declare: clause: 
list] ") " t", " "FRF.TUiCC"] [function: 
location] : 
= ntype / ".'-TP,Tra"| 

■= "," ( "MONITOR " / "UTILITY" / "POP" ,/ 
"TRAP 'ENTRY" / "FXRAP 'ENTRY" / 
"SP 'ENTRY" / "SYSPCr") ["'■" expres- 
sion] ; 
For otcTr.pl e 

FUNCTION F (I, RF.AI. J, STfUKG AUtlAY K) J 

ENTRY and FUNCTION arc synonyms. 

i 
5.1 Formal Parameters 

The dcclare:clausc:list must not include lengths or forms. 
It may include dimensions, but only the number of subscripts 
is counted, not the values, and the subscripts may be null 
(e.g. A[,] for a n,atri;<) . Arrays are assumed to have one 
subscript if no dimension appears. 

Any identifiers in the dec] arc : c] ausc: list which have not 
already been declared arc declared as though they had appeared 
in a DF.CI.ARi: statement with the same at tributes . If any such 
identifier has already been used. an. error continent results. 
For each identifier which has already been declared cither: 
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1) the attributes specified for it in the function 
declaration must exactly agree with the attributes 
already declared for it, or 

2) no attribute specifiers may precede it in the 
declare: clause : 1 ist . 

OLhcrwise there will be an error comment. 

Tito .Uleut t fi I'm ill t.lie doc'l .ir<> : c1nur.ii : 1 ist con.-, h i tu l<3 the 
formal arguments in the order in which '-hey are written i 
When the function is called (sec "function calls", bclcv.') 
an caual nunbor of actual parameters must be supplied, and 
they must agree in type and mode. No automatic conversions 
?re -dene , The agreement is ehoched when the call occurs. 

5.7. f.i;.!:".'I'>lpns_ 

The FR"TURK clause must be included if the function returns 
with FR.liTUR'-I . In this case it must always be called with 
a failure clause. If any function in a pro-jrara block has a 
FRETUR*!, the first one must, 

5.3 Special Entry Points 

The func ti on: 1 ocation specifier, that the function is to be 
entered in otic of the r.ys; turn-do £ ined transfer vectors at 
the location r.pecjficd by the expression. In the case of 
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POP, SIT, will su; 


'P 


.y a location if none is specified. The 


possibilities am 






POP 




the function is to be callable as a POi' 


TftAP'ESTEY 




the function is to be called when the 
specified (ring-dependent) hardware 
trap occur. 


S P ' ENTRY 




the function is to be called when the 
sub-process in which it runs is entered 








at the specified entr 


y point. 



The remaining encs are of interest only to system programmer r.: , 



FTRAP'EM'RY the function is to be called wh.cn the 
specified (fixed) trap occurs. 

MONITOR the function is to be called when the 

specified KCAT.L is executed. 
TThcsc two ro.ahe sense only if the function 
is in the monitor. 

UTILITY the function is to he called when the 

specif ied .UCALL is executed. This waJccp 
sense only if the function is in a utility. 
If any function in a program block has a 
KOUITOR c:~ UTILITY function: location, the 
first one must have it. 



r^ 



... . 
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SYSPOP 


the function is to bo called when the 





'> 


specified syspop is executed. , 


The following tables suranarif.o the treatment of the various 


special Idnds of 


entry points . 


Tvpo of function 


Call with Return with Tut descriptor 




DLL BU. 


MOM IT OP. 


KCAI.I, GOET MCAI.L TV 


UTILITY 


UCAT.T, GUET UCAhh TV 


POP 


Pop BLI. POP TV 


TPAP'ENTrtY 


Hot applicable. A trap 'en try is not really 




a function. It does not have arguments. 




Trie address of the first wore 1 , of coda 




should be put into the TP^AP TV. It in a 




programming error to reference any local 




variables or do a return. 


'r'TRAP' ENTRY 


An for TPAP'PNTRY, but put the address of 




the first word into the FT RAP TV. 


SYS TOP 


An for TPAP'F.NTRY, but put the add-rcer, of 




the first word of cede into the TRAP TV 




at ?.0B -t- syepop nurr.hor. 


GP'KJTRY 


BLL BLL EP TV 


T.:!i!c 5.1 Summary of Function Call Conventions 
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KCALL 

UCAI/j 
POP 

TRAP 

STRAP 
SP 



Location and contents 
o f_d e jscrijytor 

60400CB : UB-MV'-r-'CAbL 



403014B ; UU----JV\:~JCAT.L 
G" [0] ; UI1-MAXP0P 

C' [61 : Ui^lln except 
for user ring, whore 
UP = 2 0!M "AX SYSPOP 

604002J1; UE = 13B 



C^t e^s_o_f_TV_c; i_t r v 

Absolute address of 
function descriptor . 
initialized to an 
error function. 

As for MCAi.ij. 

Ar for KCALL. 

Absolute address of 
cede. Initialised 
to a trap routine. 

As for TRAP 
As for KCALL 



G' [l?Bl t tm = MAXSP 
All descriptors are normal lAVJa with indirect addressing; they 
point to AWU\Y IAWe with LH = C, MULT--1, BASF.-indcxed indirect 
source-relative pointer to the transfer vector, which is 
allocated in code space at the discretion of the cooler. 

The MAX 'syi.-bol R are, for thn moment, built into the compiler 

with the following values! 

flCALL = 400E, UCALL = 4003, POP = 100P, SYSPOP = 10CP, SP = 76' 



Table 5.7: Transfer vector 
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6 . Al location 

SPL has a considerable amount of machinery for controlling 
the allocation of storage for programs and data, Much of 
this machinery is of limited interest, but a few parts of 
it are important to nearly all programmers. This section 
discusser! the topics of general interest first, before 
going on to the others. The reader is advised to break 
off when, be encounters material of no relevance to his needs. 

G.l Permanencv of Storaqe 



Data in SPL in of two kinds: permanent and stacked. 
Permanent data stays around for the life of a program., i.e. 
the value of a permanent data item, once sot, survives until 
explicitly changed by the program. All data declared in 
COM'IOM blocks is permanent. Data declared'in PROGRAM 
blocks is permanent if the block includes a 

fixed: statement = "FIXED" ["»" "ORIGTfV expr] ; 

The function of the ORIGIN clause is explained below. Thar: 
statement, if it is present, must appear between the include: 
sin tenant and the declare: statements of the block. The FIXr'D 
program block may not be entered recursively (by function 
calls) during execution. This error is not checked for. 

Tf a program block is not F1XK!), all the variables local to 
it are stacked, This means that their values are undefined 
when the block is entered (by a call to one of its functions), 
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may become defined by the action of the program and disappear 
when the function returns. The block may be entered recur- 
sively, and the values of Its local variables for each love? 
of recursion are completely distinct. 

6 . 7 Layout of Core 

The arrangement of memory relative to G (the global en- 
vironment) is designed to group read-only things together 
and on separate pages from writeublc things, so that the 
former can be protected by the hardware from modification. 
Later improvements will permit small programs to be packed 
together better. 

Space is allocated in four main regions 

G ' S KGS -> --P.SOS : G ' ~A OOCiOB : CS •* 



OWGS -> :37777'?B 



KGS: Writeablc global storage, starting at G. This area is 
allocated by a general storage allocator in the compiler in a 
piecemeal fashion: no attempt is made to keep related things 
together. Here are put all the writeable variables which ap- 
pear in common blocks, together with fixed local environments. 
Some of the first 178 words may also be used for field and ar- 
ray descriptors, at the discretion of the compiler, except in 
the monitor ring, where this will never bo done (unless forced 
by equivalences). The first few words, of course, arc Used for 
objects v.'h.orc location is fixed by the hardware, like the ntae' 
descriotor . 
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The allocation strjtecjy for this area te,y be recclified by OlbGh: 
sLat'-"'.;'!T! fe; s'ai below. 

Collision of this area with Rr-CS is ex fatal error In the initha 
j„, , irradiation , Late- version? will c^J^c it te ovcrflw i?>t" 
O'.Vvf i ever flow v/j-i teable global afo",cre, which is hancicd iss 
the Ec>mQ a - ay . 

"be rU'ch {where tuehec data is stored} is aliccttcc] rcace at 
tli" enfl of this area, lee ;b re ec-pecf,; oa the nu'b-c of 



j noa-I'TXtt) PfCCrhh blocks eaiereci but not exited. 

I hfaS: Rr,id-only scalar global storage. Here arc put the cori- 

! r.'.. >"t ce.bhre-s (e.ff. array dcece: latere end i initial i ace rea'ars) 

| ft v ct coi -Kfl bioehr, jw- well re 1 recti on ficstr ipiorc , This: at"';. 

{ ia .ilhcti-i by another inearnaUcn of th" g,.arrra1 storage al. - 

| loevslion Msec! for bah act! or: the <:.\-~ eiea^ae-cl baaia, 

| 

! LB; Cote siraaeje. 5aac« h'-rv is allocated by Moe?:, A3. 1 tie: 

eohe eeh co;eta:iU ccncratec by one program hhoeh, or ail the 
reee-ecal nr ccrastoe.t? (strinct't. atrce/s anil. elope) gcncrstc.b. by 
ere coar.ee bioch, arc co*3ectcd together and alloehei co» tin- 
caevcsly 3" that raerior:. Tranafer vectors also appear here. If 
bl'eh A preeefer. b7ca:h. B leaically (in the stcrcc) , thee the 
CS fee. A wi ] ) c*a:-cce*(r the Ch for Ii . 
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The ori eirc statement pertrits (meet of the } storage of a bloc". 
to be alleetitec! at a ficrh plae-e 

orj gin; etc t'Cie:; t = "'CHIG.IS" iei'p'3; 

The e;:f"ceten, a"hos-.- vclee is called tfe oriehn of the Isborh, 
must evaieate to ar> integer at coapi ] re-th r.e . The statement 
must appear in the bioeh after any induce; siatecen t eel bctcce 
anytlii ncj r 1 '•■,• . 

If the blocK is a proerar: bioeh or a coram block wit*: r;e 



crjec. a i at ru-'icei t a . 

If tlu; Weak is a 
oriejn f :■ J ] s when 
app'y 

1} The Mr: 
?) All hi a 



•rirtecele rfataga-j ileal u 
are , tve restrictions 
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A3! th" WGS for an orjgined block is allocated together. A 
fnibra.-quoril: bloc); may omit the ex'pr from its origin : statement, 
in which case Its WCS is allocated i mined i a i a 1 y following that 
of the preeodincj blocX. 

^■ /1 ' Fixed Envi ronirionts 

The; local. Lor. of ;i fixed local environment may bo specified by 
the fixed: statement, thus: 

FIX1CD, ORIGIN cxpr; 

The origin clause tells vhere to put the environment. The pro- 
grarr^cr is responsible for the security of the area be chooser., 
v;hich in not checked by the compiler. In the absence of the: 
o.'ig'r:, the eoinpjder will allocate '.he storage in V:cs at its 
di ncrcU on . 

5 • 5 iHMoXi-." " ;1 -51 ' 

An equivalence can bo used to fix the location of a scalar or 
an array descriptor by writing an integer-valued expression 
for the object of the equivalence. Thus 

DKCT.AHF, A = 4CB, ARRAY !:[30) = 41R; 
allocates ?■ a'. •'O and the descriptor fur the array B at 41 and 
A?.. The array itself if. allocated according to the defaviH 
rule;., f.'e.otri ction: the value of the equivalence must be in 
the range [C',C -1377771;]. An coui val tico ov.'rrjdc:: all o'.her 
nv'thod.o of :;torage allocation. If a variable V bars been equi-. 
valonccd to a constant, or jr. doc!!:! red in a commuih blooh, then 
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(SV is a constant whose value is the address assigned to V. 

6 • e Fixed Fields 

Descriptors for part-vor:d fields are normally allocated in the 
first 120 vord.r of the global environment by the compiler if 
thee is: rooTi , Ibis ^.lioeation c^n be suooresscd and the 
field allocated in the function or cohct.oh block like any ether 
constant by prefixing FIXED to [SIGNED] FIFLD in the 
declaration. 
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F; Kor e s sipns 

Thlr section provides the following information about SPh 

expressions: 

approximate syntax, based on the precedence of the 
Opera lor;: 

exact fv/!iI;:x 

ruler: for typos of operands 

the EC-Mint jcf of the wifj.oits operators 
7.1 Precedence of operators ■ 

Expressions arc T'.ie,de up of operators end operands, the opcr;i- 
tor.'f, in order of precedence, are 

Foi; v.'ini.E loops 

t¥ tel.SH condUjohals 

VK> ; ;R] ; ! sequential evaluation 

& sequential evaluation 

IlK'tUia I'k.'.ITUKN function return 

Ok boolean "of" 

A'M booloan"end" 

NOT (unary) bool r, ?.n"noL" 

= : H > >_ < <^ relations 

'• (on right) assignment 

MOD modulo or remainder 

+ - V" E' add, subtract, logical or, logical 

exclusive or 

* / LRU '.'.I'll I,CY multiply, divide, shift, cycle-, loyjci) 
RCY A ' and 

*'* exponentiate 

•I - !-." (unary) un:',ry + -, logical not 
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GOTO 

<- (on left) 

• $ <3> 
$ © (unary) 
tl 

The operands arc 



transfer 

field operation?; 
indirection, reference 
subscripting, function call 



constants 

names 

parenthesized expressions 
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'•^ Syntax of Expr essions 

The above li-.t of operators by precee'ence, while convenient 
for civic': reference, docs riot suffice to specify the syntax of 
express? oris. We therefore state the complete syntax; explana- 
tions of the Meaning of the operators follow: 



expression 
fbi'cxp 

forcla'Jsc 



i f exp 
wht exp 
caiexp 
ire tcxp 



alternation 

conjunction 

negation 

relation 

roirtninrlor 
ansi.gni'ien t 



= fcrexp; 

.= if exp ? ("POR" forriaiisc / '".•.'1:3 T.E " 

ifexp) j 
= identifier "<■■" remainder ([";" 

alternation] "W;i3'I,F,'' ifexp / f"HY" 

ifexp] ["TO" ifa:-:p]) j 

= viiroxp t"H'"' Wjircxij ("KLPH" ifexpj J ; 
= cntoxp t"v;!;pK'-;" wiirexp] : 
= rotcxp $ ("&'■ retcxo) ; 
= alternation / ( "RDTUHN" / "FUKTl'llN ") 
(altornatio?-, / " ( » ifcxp ?{"," ifoxp) 

= conjunction ?("0R" conjunction) / 
"GOTO" tailing; 

- negation $("AND" negation); 
-■ ("NOT"] relation; 

= assignment [(" = " / "-;<" / «y< / «- >i _« / 
"<" / "<•■=") alignment]; 

- sup $( "MOD" Fi»'i) ; 

= remainder / a:tnj]ing ■•< " a <;:;ig;]:aon > ; 
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Note: 

boil; 

a-par 



sum = term $((" + ' / •' - '' / "V" / "E ' " ) 

terr.^ ; 
term = factor ?(("*'• / "/" / 'I.KH' / "R.S'r 

"I.CY" / "RCY" / "A"') factor); 
factor = ["+" / "-" / "N'"j power ■ 

power - tailing! •"* * " factor]; 

tailing = a: tailing / v-taili.ng > 

attailihg = irid.i rection $}tail) / reference 

$(". ; field) ; 
v:taili::g = reference $(tail) ; 

tail -= {" . " / "$" / "<§>'■) field ; 

indirection <=. 1$ {"$") arrayrcf j 

reference = t"<a> r j arrayrcf / functi on: call ; 

arrayref = a -primary $( "[" expression $("," 

expression) '' \ ' l ; 
funeL5.ori:caii = v: primary / <*;o^ p. rf> \ 

atprJniary = identifier / " ( " a:taij.ing " ) '' ; 

v:prj'r,ary = constant / '(" expression ")" • 

this graniTar is ambiguous because (A) can be parted, as 
a:pr j'r.ary and viprimsry. The intention is that the 
sing be usee! if Dossiblo, 






»\ vlfc.Wj wW - . . . H J , UrflC urt j«i>fcv i,4uh .J 11 ii-i J ! 



u,'^*Jtf *&.-m+»nAi#&+&.- w t i W ** ■»*• « 



/^ /"~i 



dC< 



p/c-n.f 

SPL/M-1.7 



37 



' ■ -* Tvpcfj of Operands 

The various operations have various requirements for the 
type- of operands permitted and the type of result produced. 
The permitted combina ti o;is are sumim ri^etf in the following 
table, in which certain conventions are used, 
type abbreviation;-:: I integer 

G long or longlong 

R real 

t) double 

C complex 

S string 

I, label 

U unknown . 



other abbreviations: F suffix moa-ir, n . de = FIELD 

T suffix moans mode *■ I'L'N'i'TrON" 
Y suffix means mode = ARRAY 
S suffix means mode = SCAhAR 
A means any type 
N means r, R, D or c (i.e. number) 
M means I, S or D 
, Where A, .N' or M is suffixed with a digit, different digits 
.imply that different types may appear, if the digit-; are the 
,s:mie, pr.. there is' no digit, the • types must bo the same. 

7\ partial ordering, on the r.umbcric typos i <•/ defined: I<R<D, 
f.<V. Where two Ms or Mr,' appear, the lower is converted t o ' 



o 



SPL/M-l.J 






the higher before the operation is evaluated. If the result 
is K or M, it has the higher type also. It is illegal to have 
one D argument ard one C argument. V.h.^re A appears, the mode 
is free except as fixed by suffixes. In all other canes mode 
- SCARAR. 

Constants receive special treatment, Any type N constant is 
automatically converted to a higher type if that is required 
for an assignment to be legal. This is not done for variables; 
the explicit transfer functions described below must be Used. 

An object of type U may be Used where A appears in the fol- 
lowing table. It may also be usee! as one of the operands in 
the: linos marked *. in which case it is assumed, to have the 
type of the other. 

Koto the -treatment of ARRAYS, FIFU.'S and I-'UKCl'IOh's of type 
ARitAY, FIELD or FUXC'VJON. When such variables are applied 
to subscripts, pointers or function arguments, they yield re- 
sults of type UNKN0V7N and mode given by their type. Normally 
such results must be assigned to something of known type 
before it car be. used, because of the restrictions on the use 
of type ir\-:o:ov;v; thus, for example, if we -want A to be an 
ARRAY of RFAL FUNCTIONS we would write 

DFCLAUR FUNCTION ARRAY A, RF.AT, FUNCTION RA: 

RA < A[l] ; ' ■ ' 
RA(X,Y -i 5) ■ > 
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OPT 
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Rfcsur/r 


A 
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I ELSE A 


A 


AI 


WHIiKE 


AZ 


Al 


Al 


& 


A2 


A2 


*IS 


OR 


IS 


IS 


*IS 


AW) 


IS 


IS 


- 


NOT 


IS 


IS 


*NSl,AS 


= ..^ 


NS?. , AS 


IS 


* M31 


<,<,>,> 


?•' r;2 


IS 


*A 


< 


A 


A 
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.MOD 


MS2 


MS 


*KS1 


+ - * / 


NS2 


■ NS 


* NS 1 


' * A 


NS2 


■ NS 


*1S 


sin i-".!', 

A',E',V 


IS 


1 IS 


- . 


NT 


IE 


IS 


- 


' '■' , - 


NS 


NS 


- 


GOTO 


I.S 


- 


IS 




AK 


AS** 


AS 


? 


IF 


IS 


IS 


@ 


IF 


IS 


- 


$ 


IS 


US 


- 


@ 


A 


IS 


AY 


[IS..., 


IS] 


AS** 


IS 


t is ] 




US 


AT 


(A2 ; . ,., 


A.,} 


AS* * 
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KOTES 

The A's arc required 
the seme only if the 
of tho IF is used, 



o 



to be 

value 



but- sec details below 



on'.' operand !uay be U, . ar:d is assumed to have the typo of 
tl:t! other . 

if A i<: AT! PAY, FTKT.11 or n:::<."i"J OH , th<- r. -:;;]( j ;■. Lyi.c U, i;. 
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7.4 S^T, 1 ^tij^__oX_S22. ! ;£i;i t iiS-?. 

Wc now complete tho discussion of operations with consents 
on the evaluation of each one, together with some ronarks 
which may clarify the syntax and typo conversion rules given 
above. The operands are referenced by the syi-fbola v;hieh st-'.si' 
for them in the expression schemata on tho left. 



FOR..Vf;:.TLE 

Al IF I ELSE A2 



Al WHERE A2 



are discussed uiu'cr "statements" 

belov.- 

evaluates I. If it is /- £, evalu- 
ates Al and rol-.ins its valv.". 
otherwise eval". ates A2 and returns 
its value, or if the ELSE ifi 
missing. 

Typical usage is 

F{y.) IP X < < ELSE 0{>;) IF X< 3. 
else H(x; ; 

No f ..c that 

X <- Y IF Y < 3 ELSE Y-tl 

alters X only if Y < 3. Therefore 
wri te 

X <- (Y IF >; < 3 ELSE Y -i 1) 

if this is intended. 

evaluates A2 , then evaluates A) 
and rotnrr.s its value. 



■r. 
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Al & A2 

F.CTU;,'.K, ''RKTURU 
IX OK 12 

II AN!) 12 

NOT I 

Al (-,??, >,>=,<,<=)A2 



A] 



A? 



Ml MOD M2 " 
Xl(*' ,V ,E')1?. 



evaluates Al, then evaluates A2 
and returns its value. Several 
&'s may be strung together. 

Sec "Function Calls" below 

evaluates 11, returns 1 if it 
if / 0, Other.:i re evaluates 12, 
returns 1 if it is /- 0, olherv/iso 
(S. 

evaluates li, returns p if it is 
=JT. Otherwise evaluates 12, re- 
turn? ff if It is = 0, o the .wise 1. 

evaluate:: I and returns 1 if I = 
Cf, otherwise 0. 

♦evaluates Al and A2 and then 
evaluate:, the relati.oa. The value 
is £> if the relation does, not hold 
1 if it doe?. Note that only « 



a no 



./ 



legal on non-M type 



■ cva]n;iir.'u .1? and store;; the re- 
sulting value into Al . They must 
agree in type and mode except 
fo.r the special treatment of 
constant-!, and that one may be of 
type U. 

♦evaluates Ml and M2, and returns 
Ml-FlX(Kl/S-i?.) 4 H2 



* ob vi ou s 

♦compute the bitwise 
oxclusivo-or of the 3 



;nd, or cr 
operands 



Il(b.BH,RSII,IjCY,RCY) 12 *th.cse are 24-bit logical shift? 

(shift in ffs) or cycles 
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except that 



II ; 12 is sn error unions 12 i.r- 
positive. The error is not caught 
until runtime if 12 is not constant 

obvious 

compute:: the bitwise (3's) comple- 
ment of I j 

tends control to the statement ] 

labeled by A?. IC this was parsed 
a? a parameter, the correct environ- 
ment is restored. 

♦evaluates 1, takes it as an 
absolute address A, and references 
the bits of A + v'ord.-.displacc-.ucnf 
(At) , frca. starti:ig:bit (AF) to 
ending:bit (At) . The rt-sul t may 
appear on either ride of an 
assignment . If the field is 
SK'.'IED, the star tiny bit .is copied 
into al] the higher bit positions 
when the result is used as a 
value; otherwi .<■ c these posit 'ors 
are filled with zeros . 

♦references the bits of the value o 
A specified by II-'. The word 
di rplacowr.t of TV should net be 
greater than the nunber of v/erds 
in the value of A. (4 at tnost. if 
A is a variable) . Sign extension 
is handled as for "." above. 

♦returns T, v/hero T is the result 
of 

r <■ ff 

T$IF <- 1 

i .o . , the value of A posit •.curd 
in a word according to the field 
IF. 
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A box : [?T_ 1 

represents a descriptor for an 
array of size n. 



A sinpJe box: [_ 

,(>.,.• t .r,,-.. -,(;«; ;, r ~". 
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9 • Function call? and returns 

The syntax for a Junction call is 

a: primary '' (" [cxpr ?(■','■ expr) ] [stores] 
["//" failure: result [stores]]!!)" ; 
' stores = ":" identifier ?("," identifier); 

failure: re suit = ["GOTO'!] identifier / ( 'UPTURN" / 
"KRKx"ui-\'") [expr / cxpr: list] / "VALjI-;" expr ; 

The aipriraary must have r.iode-FUSCTIC:; . The va.lue of the 
function is ta];on to be a SCALAR of type equal to the type 
of the a : primary, unless this type is ARRAY, FIELD or 
FUNCTION. In this case the type of the result is UNKNCV.'N 
and its mede is given by th.e type of the function, 

9 -^ Actual Areun-ents. 

The arguments immediately follow the function rian'.e. There 

is no Restriction on their number or type, except that an 

initialised LOCAL label or string array n.ay not be used, 

F(); FtX); F(X,Y(i,2) ,Z[3]*'5,v:,Q); 
are function calls v.-ith 0, 1 and 5 arguments respectively. 

Arcjuraon ts are evaluated as follows. All the arguments which 

are compound are evaluated, left to right, and their values 

are saved. An argument is simple if it is cue of th.e 

following, compound otherwise: 

constant 
iden ti f i er 

identifier "[" identifier "]" 
identifier '' ." field 

"$" identifier or "$" identifier "." full-word 
field 
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Then the value of each argument in stored in the corresponding 
foniu'.l nryVimont of the function being called. No typo 
conversion is done; nonmatched types are a (run time) error, 
Then control is passed to the function. 

9.7 Returns 

Uclnvn is c!'.>ne with an expression of too form 

RETURN (expr, oxpir, .,.., expr) or RETURN expr rr KTURN 
The expression list is treated exactly like the actual 
parameter list of a function call. The value of the first 
expression becomes the value cf the function; it and sub- 
sequent values are stored i.n the corresponding identi- 
fier;; followine the ":" in the: call, exactly as actual para- 
meter values are stored in formal parameters; . 

9.1 r^_lur£j^xi t_s 

If a fciAlurc exit is provided following the "//" in the call, 

a P'hl-.TUi'.N v.-ill none! control there, it may be a label, in 

which car;e control goes there, a RF.TtKN, 'in which case a 

return is made from the function containing the failure 

exit, or VALUE expression, in which case the value of the 

expression becomes the value of the function. Jut: I an for 

KKTUlvK, any number of values may be letumcd; they are stor."d 

in the corresponding ] oca] : iden Li f icrs follov/ing the ":". 

V.hon a function ban a failure exit the nor;>;l or succos:: return 

i ■■•, villi RF'nU'N, exactly an for a function with no error exit, 
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The following statements can appear in the body of a program 

b loch i 

i nc 1 1! d e j s I a Lene n t/a 1 loca t i on : s la I e-.ven t _ 
/declare: statement/action: statement 
where 

action: stn temorit = "." assembler : statement/ 

for : statement /end for ; sta te;T:en 1/ 
if: statement/else if : statement/ 
endi f : s tatemen 1/ 
expression; 

Statements of the first three kinds must appear in t u e 
prescribed order. Most ot these have alrcudy been discussed. 
In this section vc consider the restrictions on expressions 
used as statements and take up IFs and FORs . 

10 . 1 Ex p r e s, s i oris— as _S_t^.eroen_ts 

In order to catch so:ae conrnor! errors in which the user inad- 
vertently '--.'rites an expression statement which dees nothing, 
a set of rules is enforced. They insure that evaluation of 
the expression results in scire change in the state of the 
world; such an expression is called an action expressj on. 
Here Die principal operator is the one of lower. I precedence 
(i.e. first on the list in the section on "precedence of 
Operators"), r.;. : oopt that reiy operator enclosed in n sets, of 
parcnlhes.es is of higher precedence than any operator enclosed 
in fo;-:ut' Lh.ei n sets of parentheses. 
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An expression is ah action expression if: 

1) the principal operator is 

a) *■, GOTO, RETURN, FRETUk:.', or a function call 

b) WHFKF., &, FOR, WHrt.K, IP 

2) If it is in group (b) then 

a) for WHERE or & both operands arc action ex- 
pressions 

b) for FOR or WHILE the body (first operand) 
is an fiction expression 

c) for IF/FLSF both of the consequents are 
action expressions, or the second consequent 
is m .is sing 

10 - 2 IF statements 

Wo have seen that IF can be used as an operator. It can 
also be use! in the following v.'ay: 
II' expression DO; 

FhSFTF expression DO; 



fi.fi: t>0; 

FN) OF; 
Any hv'n'ior of !•!!,! c ;KlFs arc allov'ed. The 



rtvsv be replaced 
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by any sequence of statements balanced with respect to IFs 
and FOFis. The EFFF nay bo emitted . The meaning should 
be obvious. The integer expressions after the IF and ELSEIFs. 
are evaluated if. turn until a hon-::ero one is found. The 
statements between it and the next ELSFFIF, ELSR or FKill V are 
then executed, and control, goes to the statement follov/tng the 
FNDIF. The FFSF DO is equivalent to ELPFIF 1 DO . If none of 
the expressions are non-.~.ero, nothing is done. It is good 
practice to indent the statements represented by ... uniformly 
2 or 3 spaces. 

10.3 FOR statements 

The same thing can be done with FOR: 
for : statement; 



FNiii'CF: 
Here v:c have 

for: statement - ("FOR" for:clause / "WHILE" expression)' 
for: clause ~ identifier "<-" (cxpressionl [ "BY" cxpressio; 
["TO" expressions] / expression! [" , " expression?] 
"VJH.ILK" c>:pression3) ; 
If the p.y/'j'O form is used, the identifier must be of type K. 
If. FY is omitted, BY 1 is assumed. Tf TO is omitted the loop 
can only terminate by an explicit transfer out. 

The effect, is that the statements represented hy ... are exe- 
cuted repeatedly for svecessi ve values of che controlled vari- 
able. In the first case the variable starts at expression!. 
On each successive loon expression? is added until the 
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.variable passes beyond expressions. The definition of 
■''beyond" depends on -the sign .of expression? . If expres- 
sion! is beyond expressions, the loop body will not be 
execute rl at all. If the expressions are compound (r.ee 
"Function Co] Is") they are evaluated before the loop start;;; 
if simple then each time around. 

The second form init.i all xes the controlled variable for 
expression!. Then it tests integer exprcr,sion3 . If it is 
!?, control passes beyond the EMD.'OR. Otherwise the loop 
body is executed.; the value of expression? (or expressi oe.l 
if expressions is o-'ii tted) is assigned to the variable, and 
the tost is made again. The expressions are re- evaluated 
each tinie around the loop. 

A wn.LK statement simply loons until the, integer expression 
is ;■', without' modifying anything. 

Vhcn FOR or WHILE is used as an operator exactly the same 
facilities are provided. The first argument is evaluated 
each time around the loop. The value is undefined. Thus 
A!l,o' <- £ FOR I«-l TO N FOR C<-1 TO K; 
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10.<1 As s eir* 1 1 y harigu ;. ge 

An assembler: statement consists of one or more machine instruc- 
tions according to the following syntax: 



nsseiib] cr: statement 



= "." mach:' no: instruction $(',' 
["."] machine instruction! ; 
machine: instruction = opcode [address]; 
opcode = identifier / simp! e: integer; 

address = expression; 

Since opcodes appear in a restricted context, the syirbols used 
for opcodes in MTCPU/M-4 (which arc ail recognised by spl) 
bay be used freely for other purposes as veil* If an opcode 
is an identifier and not predefined, it must be an IK'iKGlSP. 
constant, such opcodes, as veil as opcodes which are written 
as integers, are treated as follows: if no address appear, tin 
Value of the opcode is placed directly in the con.pilcd pro- 
gra::i; if an address does appear, bits 13-23 of the opcode 
value are placed in bits 3-8 of the instruction '.■.■ore and bit 
17 of the value is placed in bit 9 (the programmed operator 
hi t) . 

Any expression tuny appear as an address as long as it is 
}n")SL l }12y.. equivalent to e.i ther a constant (of any type and 
mode) or one of the addressing formats of the. CPU. These 
formats are described in detail in MICPU/M-'l and are listed 
below, together with the usual way of generating then. No', c. 
the existence of the four reserved syrrbols X', 1.', G', and K ' . 
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i\ r L4 r ^r..^i n il..fp^. i ?l i \t ^^5:i.'L_sxntax 


E G ' [M] 


I $G'[N] 


X X'[N] 


I'D P[Nl 


ifn $Ptt;l 


bX A[l] 


bxh ;?x')[i'M] 


IM Jt 


!»■■: XMK 


s:t R'tN] 


ISR $R'tNl 


LR L'U'J 


ILK $L'tK] 


In the above l.iut, N stands for on IMTi'OfX coriF.t-.'.nt quantity, 


£» and I Eland for IKTCGKR ECAIAU quantities, and A st finds for 


an AR'JA.Y quantity. BX or PD addressing n<ay also result from 


tailing. Since the determination of the addressing format 


If done on semantic, not syntactic, ground:,, the exact 


rule;; arc quite complex, 
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11. Macros. 

The language allows a pimple form of token-substitution 
macro. A macro is defined by a 

rmiero: statement = "MACRO " macro: name ["(" formal : list 
"•-" rvacro foody; 

macro! name t= identifier ; 

t"or ma i ;list = t formal $ ( ", " formal)] ! 

formal = identifier ; 

macro :body = compact t to>.en: string ! 

compact : token i 

String = <arbit.ra.ry string of tokens hot in- 
cluding "; "> 

'Token' !••. defined in section 1.1. 

Once a nacre Minnie has been defined (i.e. hat; appc-jred in a 
MMcroir.tntoiaent! it can only be used in a rr.::cro :cnll , A 
macro :onll may appear anyv/hore except in a string or charac- 
ter constant. It is 

macro! call - rtiacroi risttc ("(" actual : lirt ") "1 ; 

actual-list = Uctual$ ( ", " actual ) ] 

actual = balanced : toben: string 

b';1, Tired : token: 

string = <cor,ip;:ct: token ; string balanced with 

rer.pect to pa renthese:;, and not in- 
cluding ", " except in parentlioKer., 
or carriage rcturnV 
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The: actual:list must be present if arid cnly if the formal : list 
war. present in the macro: statc-iaea t, and must be of the sinio 
.length as the formal : li s.t . The macrorc.all is replaced by the 
macro:body, except that each occurreneo of a formal in the 
macro :body is replaced by the corresponding actual. Trio 
result is then scanned again fo- further Macron. 

Macros in a macro :body are expanded at definition tirtc (anloft 
they have not yet boon defined, in which capo they are expand- 
ed at call timo according to the rescanning rule stated 
above). If expanded at call time, their actual? taust not include 
any formal ? . 2e££ rt1, 'liuis. glitch v;i.ll be fixed at sevne far 
distant date. 

Nate thrtl a macro if expanded strictly by to*'.on cuhst.i tutlont 
there is no requirement that any of the token strings fnvolvcc' 
rnalce syntactic or scn\:iritie sense. 
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12 . is^y^iislsL-Fys^-^—i^. 

Figure 12.1 lists all the intrinsic function? in SPL. 

An intrinsic function is one which t 

1.) Is recognised by the compiler without the need, 
for any declaration by the user; 

2.) Kay have default argument valves a'.'tonatically 
supplied by the compiler; 

3.) Has the types of its arguments checked at com- 
pile tinse; 

A.) Kay compile into special open code. 

In figure 52.1, default values for arguments which the user 
is al lowed to iyv.it are given in parentheses afire- the 
argument tyee . For all functions which have f returns, a 
routine which prints an error message and caus.es a suh- 
procesii trap will be supplied if the user fails to specify 
a failure action . 

The remainder of this, section describes the intrinsic 
functions in individual detail. Type letters with sub- 
scripts will be used to refer to the arguments of r, function: 
e.g. the arguments of CNS will be referred to as I^Fy.Ij, 

and I,. 
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RESULT TYPE FRETURN? 



FIX 


R 


I 


KNTIKR 


R 


r 


FJ.OAT 


I 


R 


m-'J.OAT 


I 


D 


RE ' 


n 


R 


IM 


C 


R 


cv.n 


S,I(l(7) 


I, 


CSR 


S 


«, 


CSD 


c 


" D, 


CNR 


I,S,I(!2f ),I(lfT) 


S 


CUP 


K,S,Kf) 


c f 


CDI:' 


D,r',i(;f) 


c 


I NCI IMP 


i, i 


I 


i.mgpes 


i, i 


I 


CO 


s 


I 


we i 


I,S 


I 


GCL) 


s 


I 


l-.'CD 


I,S 


I 


SETUP 


S,I,I,I{8) 


s 



X 
X 
X 
X 
X 
X 



I = integer c = complex 
ti =■ real A = array 

S = string •-, double 



figure l? . I List of intrinsic funcUoriB 



OPEN CODE? 

X 
X 

X 

X 



X 
X 
X 
X 
X 
X 
X 
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NAME 



ARGUMENT TYPES 



^'\TS 


S,I(ff).t(0f) 


SETr 


S,I(f) 


SETVI 


S,l(0'l 


LEMCTi: 


c: 


scopy 


S, S 


Apri"n) 


s,s 


GC 


s 


STORINIT 


I, I 


MMCH 


I.Kfo 


SK'JV.ONK 


I 


setakray 


A 


free 


I,3(ff) 


LXT'/OWK 


I, I 


KREE-;o;y: 


I,X(f?} 


BCOPY 


I,I,T<-J) 


BEET 


!,!,!(-:) 
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RESULT TYPE FRETURN? OPE'i COD?- 



X 
X 

X 
X 
X 
X 

X 

X 



I - integer C = complex 
R = real A = array 
S - string 1> - double 



Figure 12.1 (conljnv.ocl) 
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12.1.. Type Conversion Functions 

. FlXf!^} converts R. to an integer by truncation towjrds 
. zero. 

K:<Tli-:R(R ) converts P. to the nearest integer. 
FLOAT (I j ) convcrtf, 1^ to single-precision floating point. 
DFLO.vr(I ) converts I to double-precision floating point 

The four operators above arc converted directly into Machine 

instructions. For details consult the part, of the Kl CPU 

manual. (MlCPU/tt---) which deals vith handling of floating 
point numbers . 

Rli (C ) giver; the ron.v part of C, in single-precision 
floating point. 

IM(C ) gives tho imaginary part of G in r.inolc-precision 
■ . 1 ' 

floating point. 



CPK<S , I //F) expects to find an integer an the begin- 
ning of s , vith syntax ['+• / '-'] l$<digit in base I >. 

Digits above 9 arc allowed if I ~)10: the next dioit after 

2 

9 is A, and so on. I is tah.cn as Iff if not supplied. CSN 
i 2 

I return;; the integer, which it reads off the string, ndvan- 

| ring the reader pointer so thai, the next character read 

is tliu non-digit which ends tho integer, or 
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to the end of the string. CSN fails if S x does not begin 
with an integer in the proper format, leaving the reader 
pointer unchanged . 

CSI-.(S//l') expects to find a real number at the begin- 

nine ol. S-, m any of the fouuui.fi aa..lo^.cci b y ...... _o.. 

quantities. It returns a single-precision floating point 
number. Otherwise the action is the same as for CSW 

CSn(Sj//F) is the same as CER except that it re turns 
a double-precision floating point result. Fither of PPI. 
P.KAb or DO'JBLK syntax is acceptable; in the former case, 
the r.umber is accumulated in double precision. 

CKS(I 1 ,S 2 ,I 3 ,I 4 /A') converts the value of Ij_to a 
string of characters, which it appends to S 2 . The radix 
is T , assuiv.cd to be 1(1 if omitted. If bit of Ig.is on, 
I is converted unsigned (o.G. -2 will appear as 77777776 
in radix 8); otherwise, a '-' precedes the converted ab- 
solute value if I 1 is negative. Bits 18-23 of I 3 give the 
nviber of characters to generate: enough blanks are written 
before the converted value to bring the total number of 
characters written up to this nr.my. If the converted 
value does net fit into this many characters, it is turn- 
cal'd on the left with no error indication. If the 
character count is 0, the converted value If! neither 
padded nor truncal cd. I. Js t„ken an C (signed, no for- 
matting) if omitted. C'AV. fails only if there is insuf- 
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ficiont roor.i to write the necessary number of characters 
onto Si in this case the writer pointer is unaffected. 

,S (R S ,1 //f) appends the converted value of 
R a to 5 ? _. Failure an for CMS. I 3 specifies the format 
in some as yet unspecified way; 1^ - ?. , which ir, n.'.sunod 
on, it Led, results in soiae reiro-Me unformatted 



if t i 
convert, ion 

enn (:i , S.,I /A') iR exactly like CVS, csccf 
converted 



<cer>l that the 



.-aluc is in STL D0U2H.K rather than r.KAh format. 
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12,2 string Functions^ 

In thin section the following abbreviations are usedi 
HP = beginning pointer, RP = reader pointer, WP = writer 
pointer, EP » end pointer. These correspond to the -1 
words of nn 5 PI. string descriptor, in order. 

INCni'r, (I ,1 ! assumes that 1 is a character pointer 
(hardware string indirect word), such as one of the 4 
words in an SP1, string descriptor. The value is I 
incremented by I character position!;. See MiCPU/K-4 
for the exact specification of this operation, which is 
cone with the ,V.P instruction. 

I.NO:i!:?(I ,1 ) assumes tii.it I and 1 ? are both 
character nointors. It returns the length of the string 



v.-hiell they bracket. 
K--1 for details. 



Sec the CLP instruction in Ml CPU/ 



GCI (S ,//F) fails if S^^ is empty, i.e. RP = V.'P. 
Otherwise it returns the character pointed to by P.P and 
thee, increments RP by one character position. 



Y.'Cl (I r S 2 //F) Fails if Ej i.« full, i.e. KP - £!'. 
Otherwise it writer, 1 at the character position pointed 
to by V,'P and then increments V.'. 1 '. Th<- value is J . 
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CCnfE,//!'} fails if S, is empty. Otherwise it decre- 
ments V.'p art; returns the character pointed to by the new 
Vcl .1 ii o . 

KCD(] J 1 „S ;) //F)' fails if S 2 is initialised, i.e. BP = RP. 
Otherwj si> it decrements RP and writes 1^ at the character 
■position pointed to by the now value. The value of WCD is 1^ 

ET-J'1'UP(S 1 ,I,,I,,I / ) P«t i5 into S^ a string descriptor for 
a string of 1 characters starting with the first ciiarsctcr of 
the word pointed to by I 3 - The character size is 1^, as-vnted 
S'. if mi:;sir,g.' The value of SETUP ir. the string descriptor 
it creches!' If I- is omitted, M?.KE is called to assign space, 
pj? = RP = V.'L' is the created string descriptor! 



'f 



SMTS(S, ,1 ■ ,1. ) i r - exactly equivalent to SK'f.v (S^,' I,) 
fpllowed by SKVU(Sj,I 2 )j see below. I 2 and I 3 are tnV."r. 
a;i ff if osutted. 

1 SETR(S, ,T-)' sets S 's RP to point Ij characters bcydnd 

BP. If I '<ff, it is tahen as ?; if I 2 >I,KC;)ES (P,P,V,'P) ; it ir. 
taken as this quantity; if I,, ir omitted, it is taV.cn ar p. 
The effect is that the RP regains between the BP and the V.'p. 



SKTV;(S 1 ,I 2 ) sets 



's *.'v*P to point I characters beyond 



BP. There are four cascr: 1 2 <0 leads to KP-:RP- PP; $<J 2 
I.MtinlWtUP.RP) lead."; to WP< RpelNCDKS (PP.. J 2 ) J I.t> v --,b~f. (BP, RP) 
_<] <g,hWPS(HP,KP) leads to WP-MNCPF.S ( BP, I,,) ; and I^MMPllFr. 
(!!P FP) leads to \W<V.\' . Again, the effect is to gimratit.ee 
the correct order of BP, RP, V.'P, and EP. 
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I-ENGThtS.) gives the number Of GCI's that can be do:; 
on S without failing, i, e. LN'GDES (RP, '.•■'?) . 



GC(S ) returns the character pointed to by RP. This 
is garbage if S is ei.ipty, but no check is niade . 



SCOI'j'tr; . 3.//F) copies the strij 



S' ; . S is not affected; for S , RP< 3P ;.nd KF<-IKCDES 

(BP, -LENGTH (P))' . Failure cnlvif there is not cn.ounh roorr. 

2 ' ■ 

iri'S ;. "no pointers are affected. ■ 

APPKNUfS ,5 ', T.poends' the strina S to the striae S, , { 

' 1" 2 ' • 2 ' 1' 

advancing S 's V.'P by I.KXGTH(S ). - Failure as for SCOFY.'- ; 

J 1 ' J 2 ; 
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12.3 ^i^Ji3l2_I^UpJ^^i9jn_Tunct i on s 

There is a standard ir,echnnisa> for aljowting and rolling 
.•3rlu.tr.ury-c.i-/ccl blocks of storage in arbitrary order called 
the KLorj-qo aUocjitor . It is driven by the fo.i loving 
r-. Lcirr'.7.-!i.-d functions: 



^ ! J 



ST0R1K1T (I 1 ,I 2 ) initialises the storage allocator 
to u ;: o an area or storage beginning at I, and ocrurvi^, t 
nun-lier of v;ords for its machinations. It is not necessary 
to roll sto;;.ini.?; a standard area will bo reserved if 
STOitfKJT has not boon called when the first request is hi.de 
for a block. The value of stortkjt is a pointer to the zone 
jusl created; this pointer is also put into the pro-declared 
global pointer Variables IHJaMJTy 'idONK and CUKhECT 'ZONK . 

KAKH(I 1 ,3 ;! ) ^rectos a block of storage of 1 wordy 
,and return: a jointer to it. An extra coll is assigned by 
the system; it immediately precedes the block and contains 
the length in the bottom 10 bits and flays in the top 6 . 
The user should keep his hand, off it, under penalty of 
fouling up the operation of the allocator. Space is normally 
allocated directly fro,n the are.:: specified by STOKIMIT 
(or the standard default area); this area j fi called the 
in/A'Uv ?■.;.,,„.. The user ,„ay ret up .oner of hi r, ou-n; for 
ex.-i.nnlo, if he wishes to create some fairly c^ifx 
i'-Wury structure tt!l d t!,,, eelete it in it, entirety, 

[ _ 
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it is more efficient to create it in a separate rone 
and then release the entire ?.onc. T , which is optional, 
is ci pointer to, a rons ; if it is omitted, the zone 
pointed to by CURPJ:';t 'ZOKK is used. CIK"!'-;'7I' "/.OMH is 
r.et by the function SHTKC^Kfl . .) which provide;, compati- 
bility with the (hardware) storage allocator. A z:on': in 
created by the function 

S!-:'l7\'\]lAY(A.. ) which' r.akes Uic space occupied by the 
array A into a rev-- y.o.'ic by setting up r.ot'.o machinery 
inside it. CURkKj-iT 'i'OKK is not set by this function. 
Block v. arc re] eased bv 



l'K';!](] j , l ) '.-.'here the block pointer to by Ih hsust 
fall within the p.ono optionally given by 7 , V,"heii a 
r.ouc is full, i.e., a ca. 1 1 on M<\KF, finds insufficient 
space, an overflow function is cxecuiod. The address of 
the descriptor for this function is in word 1 of ' the stone; 
it is initialized to a system error routine vehen the novc is 
created, 'l'>v. user, of course, May change it at any time. 
The function receives the arguments of i-'AKi; as its argu-icnts, 
Jr'rcquenS.ly the proper course of actio?! is to acquire add- 
ition; 1 space and attach it to the xono: this is done by: 



o 



o 



i t*LM*tsii£iliM ^<lM..M 



I ! 



,-ff 



SPJ./M-l.J 



67 



EXT7,0:!E(J ,i ) which adds all the space in the block 
I. to the zone pointed to by I . When a zone reaches the 
end of: its i)3c[ulnc:s, all the space- occupied by the 
r. one must be released; the function 

FK£20ME(I I ) releasor, all the space (including 
1 2 
extra extensions) occupied by t'nc zone I into the ?.onc 

I . If the extensions wore allocated oi:t of more than 
on.? zone, the user must release then individually vfith Y Wi- 
the, description of the data structures, which vilj appear 
in the near Tutu-re. should maV.e thin a s jn-ol e- task . 
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12. A K5.s:eel laneous Functions 



BCOPY(I 1 ,1.,I ,) copies I words FtV.rting at I to 
I words starting at I . Copying is clone in the appropri- 
ate direction (i.e. starting at the beginning or the end 
of the bloch) to OMPV.ro that no information is lost, If 
J 1;; omitted 1 , I .SIZK is use's, where F1I-JL0 Slf.IK (-1)0,23); 
this if v.\kcre the storage allocator hides the block Eire. 
The intention is that I should be omitted if the block 
pointed to by I v;as; created •.■:ith MAKil, since other object: 
in SPI. such as array;-'. ar.;~ :;trincs co not have thir. word. 



P?KT(I,, T_, I.) initialised I words starting at I, 
to the value I . If 1 is OMiifted, I-.SIf.K is up'.-l an in 
RCOl'Y, 



^ 



\ w 



>!)iUlu^^u^iuit>!M4MMswt^iW«ui' *;.* 



- <t'iti>tiil*>i:'> ■■-<*ui,**»l*W*i*«U''«*.»-ii 



-.,.,/-- 4 /--> 



h''--i.' 



>i./u-l.? 



,"r. t ;c 



-'■ 3 - £y£.r£iik_ G -1 -i t££es_ 

The foil owing things do not work ! 

1) DKC1ARC name [ subscript] ■.'values to initialize further 
elements of an existing con:-Unl ,arr;'.y 

2) M'.ilt.i -di mens ion nl arrays 

3) Deleting an entire block with the editor 



The following things c!o not work properly, but arc not 
con:p3 ained abou t : 

1) String array:; with both string length and array sire 
given 

2) Intrinsic functions called with BLL 

3) Multi-line string constants (new feature, not documented) 

4) FTXKO and ORIGIN statements 
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CHANT-V TO INCI/JUK PROCESSING IF SPL 



The current method of preceding INCLUDE St.--. tenants has ire-nc 
peculiarities. Th.c following example indicates; the problem. 
Suppose we have the following structure; where the labels 
5tp block names: 

f [ 

S:f 



In SPL one would write: 
COMMON A; 

co;-::-v.r,', B; include a? 

COMMON C; INCLUDE B; 
and so forth. 

Ylhen processing the statement "INCLUDE E,C,I>;", the blocks 
are included in the order D,B,A,C,E. This is peculiar in 
that I would Jilw. the blocks D,C,E included before A and V, . 

The following algorithm handles this problem. Build an include 
lir.t for a block by: 



'■r< s^> T~;'"**T*^fi | iiffi'» 



o. 



i) inserting the blocks explicitly called for in reverse 

order ; 
2) scan this list and acid any now blocks found in the 

sccinn^d block's include list. 

Thus bur cxmioIc would be oroccEsoc'l 



(r>,c,E) 

(I),C,K.B) 

(D,C,F,P) 
A 

(D,c,r;,B.A) 

A 
done 



(initial) 

(B from D) 

(B f,ro::i C prercnt) 

(A from E) 

(A from B present) 



Then syi:;k.jls would be defined starting with D and ending with A, 

Peter clrtiinr; this is a straight-forward change. I prefer theec 
scm iiit j'os to the curj/ent ones. If there are no objections, 
let's add this to the list of low-prior J.ty CJ't, improvcM^nt;; . 
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/".riTMCT end cevrrwrs 

: This document describes' the current. (10-7-69) state of the 
SPL e.v,[-,:c.nd' lancjU=! V e lir those- areas no!, covered Ly CSrD/V-12 
or 5PI,r>SA'-17 ■ In particular ,' it' lists and ' describes all 
"executive" coiw.vardB not discussed in the' two earlier 
documents , 
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1. The Conrnand Processor 

SPL always relurns to its command processor at the end of 
an operation. Tim command processor (abbreviated cp) 
identifies itself by printing a herald at tho left margin: 
the litfalc 1 , character depends on the current rr.ode of the 
c|' c! s follows: 

edit mode, expert 
* " edit mode, beginner ' 
- debug raode, expert 

= debug mode, bey inner 

In the edit notc-s, a special group of miscellaneous com- 
mands is also recognized. The cp accepts a complete line 
at a tine, which is collected using the standard iin^-edit. 
The "old line" for the edit is the previous command line, 
starting with the character after the herald; this in use- 
ful for correcting errors, or executing a cont.iand several 
times. 

The syntax of commands defends on the mode: however, all 
modes except expert debug mode have essentially the sn:oe 
syntax for the comme.r-.d name, to vi i : the corr.tiand name is 
the first thing on the line. If the coituniind taker, nrgu- 
1,1-aits, they follow the name. In the beginner modes, the 
command name nay be written in full or abbreviated as much 
as de. Mired (even down to a single letter); if anything 
follows the coiamand na-.ne (modes, nrguir.'-n ti; r etc.), oi:'- or 
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raore blanhs must intervene before it, and otherwise blanks 
following the ccr.mar.d name arc optional. In expert edit 
mode, the command nan-c is always abbreviated to a single 
letter; blanks following it are always optional. Expert 
debug mode has its own peculiar syntax, waich is described 
in 5P1.DK A- -17. 
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2 . S oec ^al_J^omnianas 

3n the two edit modes, the CP also recognizes sonn- .■special 
cruands beginning with a c'ct{.). The shortest abbrpvi.it-. or. 
for those commands is a dot and a letter, rather than just 
a letter as for edit commands; otherwise they behave just 
like beginner, o'Ut corw.ir.ds with respect to abbreviat • or and 
use of blanks. They perform func tiers of .in Executive or 
global nature which logically do not Tall into either edit 
or debug categories. The formats; and actions of these 
commands are itemized below, 

Z. A COMPILE Command 

; COM;'H.E y 

C omp i ' e h a 1! blocV.s. 

.COMPILE <li ;■■'.- of block na<r>.e? separated by blanks^ 
Compiles-, the specified blocks. 

.COMPILE 

Compiles just those blocks needing compilation, i.e., 
those which have been edited since last being compiled, 
caused diagnostics when last compiled, etc. 

2B . F'TNIKHKD Command 



. FINinUf'l) 

Return;: control to 940 DDT, under which Sl'L runs, 
may be resumed by transferring control to . IM . 
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2 C . St atus Co mmands 

.UNDEFII'.TD 

Lists all functions which have bean called from some 
program which has been compiled, but which have not 
themselves been compiled. 
. MAP 

Produces a listing describing the layout of storage. 

The first two lines look like this: 

USER RIXG : >-'GS 3 OF 7??<-3777 , P.BCS 14 OF 34fW-37777, 

CS 4(?0C'0-4013 5 
This says that locations 220 through 3777 are currently 
assigned ar. WGS. of which only 3 cells are actually 
being used; 34CW to 37777 are assigned to RSC.S, of 
which 14 are being used; and 4^','V?' through 4A135 are 
being used for CS. These two linos are followed by 
1 similar maps for the utility and monitor rings. AH 
numbers are octal. 
.STATISTICS 

Print a variety of statistics about the current state 
of SPL. The printout looks something like this: 
SPL 10-3.7 

34567 K'.PS 23456 STORES 987 READS 876 WRITES 
2 7 IP'S. 5 555*0- 800 CELLS: 
HEADERS: 5ftf, TOKEN TAPLEF 2CW<0tf, PYMPOL TABLES 

53tW-3fW 
?AV.'' (SVMS) 3t v i''Gf (CONSTS) 3'/.'Vf (PPT) 
The first line identifies the assorrOuly date (October 3) 
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and the patching level (7) of the version of PPL being 
used. The second line says that SPL has mo.de 3-1567 ref- 
prenras through its software mn, of which 23456 were 
stores; read 987 pages from the drum; and written 876 
pages, Tho third lino nys th.it there aro 27 IPs 
(PROGRAMS or COMMON blocl.s) in the current ring, 
occupying 5 5SIW useful cells and a^i-f cells of wiste 
space. The last two lines break clown those total?: 
5!*5f cells for header* (fixed overhead). 2tW'/ useful and 
8i< waste cells for token tables, 5V.!'i'ti useful and 8ff{< 
waste cells for symbol table and text, further broken 
down (useful cells only) into 2I'(lW colls for symbol 
names and denotation::-, 3£W ceils For constants, and 
3W«'!!'[< c-cils for preproce.:r;ed text, All nun'bers are 
dec imal . 

?-"_'. _.?i l .yii 1 ^.„.a. n .' ; -l . ! if.tEiL e .MA ,K J Program:! 

.DUMP -rfiln- 

Dumps the entire contents of the current- ring on the 
file. This includes source program, compiled code, 
global, data, the status of -the- debugger, etc. 

.RECOVKR ^f i le 

Restores the appropriate ring from Ihe file, whi eh 
must have been created with .DUMP (if this is not the 
cn?c, there will be a diagnostic and no Tv-irm done') . 
All previous infonna t i on in 'thai riu:j is lost. 
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2_F. Changing Rings 

.ADDRitFF -rcU-jit^ 

Selects the user, utility, or monitor ring, according 
to whether the digit is (?, 1 , or 2 respectively, The 
rings maintain an almost completely disjoint existence: 
source programs are permanently associated with the 
ring that was selected when they were read in. 
Similarly, no variable or address in one ring can be 
used to refer to information in another ring, e.g.. 
if Fl is a function in one ring and F2 is .a function 
in another. Fl cannot refer to F2 by name, and SPL 
will assume that Fl is referring to a function F2 in 
the same ring as Fl if the attfir.pt is made. 

•BOUNDARY -..'octal number with/Hit B"> 

Deletes all inf ormation in the ring in which the given 
address falls, then sets th<- boundary between RSGS and 
CS in that ring to the given address. There will be 
a diagnostic with no harm don.' if the address is illegal. 
Norma) values for the boundary are -1 #£<£<? j_ n the user 
rino. 44rWC in the utility, and CvlfCTftf ir. the monitor. 
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INTriODuCTTOM 

Tho following pages are concerned with the M1CS language 
editor for SPL and FORTRAN programs. This facility manifests 
itself to the user as a collection of commands and concept:; 
in two flavors: basic and extended. The extended language 
editor is upward compatible to the basic version and provides 
the experienced user with quick and convenient ways to do 
complex editing. 

Additionally, the distinction of phase 1 and phase 2 is 
necessary. The phase 1 language editor is an interim facility 
to be Used in house only and will eventually be supt't^eded 
by phase 2. The primary objective of the following pages is 
to" document the phase 1 languaqe editor as It is implemented. 
Phase 1 does not make a distinction between basic and exten- 
ded versions. The phase 2- basic version will !io a subset of 
what appears on the following pages, while the phase 2 extend- 
ed version will be a superset, 
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GE NERAL CONC EPTS 

The basic difference between a language editor and a text 
editor is in the way the material to be edited is viewed. 
Usually, a text editor views its material as a collection cf 
characters. On tho other hand, a language editor has a 
higher level of understanding which allows it to view its 
material as a collection of tokens, where each token is a 
collection of characters. In other words, a text editor 
miaht view "1 32+TEMPERATURE" as 15 characters, whereas a 
language editor would view it as 3 tokens. A. more sophis- 
ticated language editor would further recognize the 3 tokens 
as a number, an operator, and a symbol. 

The vlCS language editor views both. SPL and FORTRAN programs 

as collections of tokens. Furthermore, it recognizes certain 

tokens and structural concepts. Structurally it is aware of 

i 
lines and blocks, where the definition of Slack depends upon 

the programming language. The tokens recocni-od include block 

hames, all FORTRAN labels, and SPL labels which appear as the 

first token on a line. 

The purpose of this language editor is to provide a means for 
creating and altering proorams. Consequently, there are way:' 
to request editing actions to be performed as well as address 
physically where they are to occur in the pronr.im. The basic 
addressable quantity is a line. The language editor is. 
alwevs aware of a "current line" and allows addressing of the 
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subsequent line to be expressed A3 relative to the current 
line* relative to trie current black > or absolute to th'o 
entire program. A complete discussion appears in the 
"semantics section. 
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SYNTAX 

The syntax appearing in this section is strictly for phase 1. 
It is anticipated that phase 2 will be an upward Compatible 
extension. The character "ff" signifies the end of a line and 
represents a carringe-return-line-fc.ed. Although the 14 
commands appear in their verbose fom'., the laiiqaaao editor 
will recognize any contiguous subset of characters which 
starts with the initial character. Thus, SUBSTITUTE aeanr. 
the same as St'BST, SUB, and S. The first character following 
the coimand must be other than a letter or digit. 

language :edi tor : command = 

"APPEND" (address] text 

| "CHANGE" (interval] text 

| "DELETK" [interval] (' 

1 "EDIT" [mode?] [ address ] C line 
i 

I "IN'KEPT" [address] text 

[ "LIST" (modes] (interval] f 

I "MODE" rrodespecs (? 

I "NEXT" [modes] [integer] 1 ■ 

\ "PREVIOUS" (modes] [integer] {* 

] "RSAD" file [address] ? 

| "SUBSTITUTE" [modes] subspec [interval] <t 

| "UNDO" <t. 

| "VAU1K" (address] 

i "WP.JTK" file (interval) <£ ; 
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modes 


= 


modespecs " : " ; 




modospecs 


= 


IS (mode spec) ; 




morlcspec 


= 


"A" | "B" | "C" | "I" | "M" 1 integer ; 




text 


1 


["»"] "(" interval "!" ? t 




B c 


a 


'character code 142 = control 13 s . ; 




sign 


= 


"+" 1 """ ■ 




Integer 


= 


IS (digit) ; 




file 


- 


<a 9 40 file name> ,- 




lino 


= 


S(character-S?l ; 




interval 


! 


address 

address "," address ; 




nddress 


1 


head S (tail) 
(block] scnrcii S(tail) : 




heed 


1 
1 


[Mock] label 
[block) "I" integer 
[block] "$" ; 




tail 


1 


search 

sign integer ; ' 




block 


= 


"<" Inane] ">" ; 




s cm r ch 


= 


["-"] tcken:search ; 




to?:ep : scorch 


i 
i 


"/" [tokens-"/"] "/" 
"*" [tokens-"*"] "*" ; 




label 


■= 


name ; 




name 


= 


letter $ (letter | digit | ) ) 
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subspec 

tokens 
token 
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"/" [tokens-"/"] "/" [tokens-"/"] "/" 
"*" [tokens-".*") "*" [tokens-"*"] "*" 
token 5 (token) 
<"dc fined by the language ' r. syntax""- 



d* 



n 
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Appends the text after the, address. If no address 
is specified, appends after the current line. The 
last line appended becomes the current; line. If 
no linos arc* supplied, the addressed line becomes 
current. 

Replaces the interval by the text. If no interval 
i. 1 ; specified, replaces the current line. The 
last line of the text becomes the current lire . 
If no lines are supplied, the first line of the 
interval becomes current. The number of lines 
changed will be printed if the interval consisted 
of two addresses rather than one. ('I!ANOEf> ntay not 
extend across block boundaries. The only Way to 
CilMinE the first line of a block is to CI'ANCd 
the entire block, 

Deletes the interval. If no interval is specified, 
deletes the current line. The lino before the in- 
terval becomes current. The number of lines delet- 
ed will be printed if the interval consisted of 
two addresses rather than one. Tlie only way to 
delete the first line of a block Is to dole'e the 
entire block. Deletions may not extend across 
block boundaries , 

Uses the addressed line is the "old line" ioi the 
line editor. Editing conventions for the line 









p/n-r.t [peg, 

cFRn/M-i; I o 



. 



editor ate in the appendix. If no address is 
specified, the current line is used. The EDITcd 
line becoT.es current. Meaningful modes are "A", 
print the new line after EDITing: and "B " , print 
the old line before EDITinq. '•"'!. s appearing 
with the EDIT command are temporary and do not 
disturb the permanent modes set by t he MOPE com- 
mand. For a coraolet.e discussion of modes , see the 
semantics of the MODE command. 

INSERT: inserts the text before the specified line or 

before the current line if no address. The last 
line inserted becomes current. If no lines are 
supplied the addressed line becomes current. 

LIST: Prints the interval. if r\o in terv,, i ., prints the 
current line. The last line actually printed 
1 becomes current. "I", interpret, is the only 
meaningful mode (pee MODE Semantics). Modes 
appearing with the LIST coran.n.l are temporary and. 
do not disturb the permanent modes set by the 
MODH command , 

MODE: The editor executes, certain commrnds in different^ 
ways depending on a set of internal state 
variables called wodes , A i^ei'n; i :ien t sot of modes 
are always in effect and can b' set and reset by 
the >■'.'. >11V, command. The permanent modes can bo 
over-ruled for the duration of one command with 
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temporary modes as in KDIT, SUBSTITUTE, and LIST. 
Basically, there arc five modus : 
' 1) A (after) : if on, caunes liner; being affected 
by EDIT and SUBSTITUTE to be printed after 
the operation is complete. 

2) D (before; : if on, causes lines boina affected 
by KDIT and SUBSTITUTE to he printed before 
the operation commences. 

3) C (confirm): if on, causes lines boin<J affected 
by SUBSTITUTE to be printed and request?, 
confirmation prior to actual substitution. 
Permission to SUKSTTTUTE is granted by typing 
"Y" (yes) and denied by typing "N " (no). 

4) I (interpret) : if or., coritrol-I, will print 

as code 154g (in phase ? it. will cause a page 
eject); otherwise, "control-L" prints .ir ",'.L". 

5) interior: the value of the integer determines 

the maximum number of Si'H./rJTe'iT.' which cur 

occur. If more than this value , r ,, attempted, i 

a message will be printed which indicates the I 

! 
SUBSTITUTE command was limited to thin number. ' 

One additional letter may appe ,r wi -li modes: "s " . I 
When "[•)" is encountered, all alphabetic mode s f i_ i 
lowing it are reset. Initially, A. 11, C, and I 
are reset (off) and the substit :mmi limit is set 
to ',0. Thus, "MODE 1M1KM-X" su|h the E ,,l>st i tut ion J 
limit to ]0ff. sr.ir Interpret, and resets After. 
Before, and Confirm. 
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NEXT: Prints the next U lines to the current line jUst 

as LIST would, where K is the number following 
the *,'EXT command. If N is omitted, the next line 
is printed. The last line printed becomes the 
current line. 

PREVIOUS: Prints the orovious !I lin".? t" the current 1'ne 

•just as LIST would, where N is the number following 
the PREVIOUS command. If N is omitted, the pre- 
vious line is printed. The last line printed 
becomes the current line. 

READ: Reads the file and INSERTS it before the addressed 

line. The last line read becomes the current line. 
If no add-oss in specified, the file is oPrEMh-'ri 
to the end of the entire program. The file naive ; 
must be either surrounded by single quotes or term-: 
innt«d by a blank or end of lire. 

■ 

SUBSTITUTE: Searches the interval for occurrences of the second 

set of tokens and SUBSTITUTES the first set of ! 

tokens for each occurrence. If no interval is , 

1 
specified, the current line is used. The last line j 

having a substitution made in it becomes the cur- 
rent line.. Note that the second sot of tokens | 
will mate!) regardless of spicing. 'Mia t is. 
/wC-A/„.VKC../ will find a match in " v . - ' tuu' ■' ■ " . 
The first net of tokens is inert ed exactly as 
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stated. The replacement in the example will result 
in "X'-^C-As", Simply stated, the first sot of 
tokens is inserted in the line na if it won. a 
string of character ■; , C'nimvrits may not apeear in 
tlu: flint sot of tokens. If the first set of 
tokens is null, the first sot from the previous 
SUBSTITUTE will bo used. 

This command, will undo the deletion r.iuscd !»y 
the Inst CHANGE, DKUITS, and FiDIT: provided no 
commands affecting text have boon cxeeuted since. 
Thus, if a grievous mistake has boon inic'e, the 
drudgery of restoring the old linos is alleviated. 
Note, however, that the ney; line- insertions ;i.i«.; 
by CHANGE and EDIT art- hot undone add therefor/.: 
rr.ust be normally attended to. The old lines will 
be physically located, as a group, : 'lowinj the 
new lines, It is roeotmondod that * r -• not grow 
top' accustomed' to this com.ii.ind. as its usefulness 
will be compromised. F.xceu tiivj tw JMaOs in. i row 
will iKrt restore >•.!,,_, s ;. Jte v ,'hich existed two change* 
previous. The current lino is .'er'v unchanged, j 

This command will print the editor address of 
the specified lino in tv/o form: for example, 
"*M - V J}57" would mean line ., i j n the block 
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text: 



interval': ■ 
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containing the line and line i?57 of the './nolo 
program. If no line is specified, the current 
lire is used. The addressed line becomes the 
current line. 

Writes the specified interval on the file. If 
no interval is specified, the entire program is 
written. The last line written will be the new 
current line. 

Basically, there a .-e two vays of specifying text. 
The first is just a series of lines entered from 
the teletype under the control of the line edi'cr 
The old line is always the previous entered line 
except for the first line, which has a null old 
line. See the Appendix for a discussion of the 
line editor. The second method for specifying 
text allows one to use lines which are al ready- 
in the program. The line!': to ace are specified 

by the interval. Additionally, ii the "=" is ' 

i 
present, the specified lines are deleted. ! 

An interval specifies a group of one or more con- j 

tiguous lines. The second address must have an 

I 
absolute lino number which is not lens than 'the I 

first. A block specified in 'the first address I 

I 

will : bc used for the second address if not | 

i 
overridden. j 
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address: A line address ' is composed of" a starting point 
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(head or search) possibly followed by a series of 
line increments (tail). 

This specifies a specific lino. The current line 
is referenced as ".". The appearance of a block 
permits a line other than one in the current 
block to be specified. "? " will address the last 
line of the appropriate block.. "». " followed by 
ah integer will select the line newbered ,is the 
integer, The first line of a block is Hi. A 
line may also be addressed by its label. 

This takes the line specified by head and incre- 
ments forward or backward accordingly . The sign- 
ed integer increments that number of lines. The: 
search is explained below. 

Till:-' defines the scope in which lines ar" uhlre:-;- 

sed. The presence of a mime confines the lino 

selection to the block of the same name. If "<"-■" 

appears, the selection is over the entire program 

Searches are normally forward unless the "-" is 
present, in which case, they are backward by 
line. Associated with a search is a starting 
point and a scope. The start in;; point in the ad- 
dress syntax is the line adjacent to the current 
line if either no block or the unnamed 
block is specified: and the line adjacent to !tl 
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label: 



if a specific block is named. T ho -.earth is 
circular within the scope, looking at the first 
line after the last line if the search is 
forward, and vice versa ■ if backward. The scope 
is defined by the soman, tire., of block, if block 
is pre = e : ,t. Otherwise, the c'J-rent block define.? 
the? scope . 

This will find the first occutanOe of the 
specified set of tokens and address that line. 
Spaces are ignored and FPL corments are illegal. 

The only SPL labels recognized by the language 
editor are those v:hi.ch appear as the first token 
on a line followed by "i" on the sane line. 
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Q'-'IT _ . 

Typing QUIT while the language '"liter is in control will i 

function as a break facility in phase 1. "his can bo iu.ee! 
to safely terminate the current act ion . Act urns which an.' 
CjUITable are: , .... | 

1) LIST, PREVIOUS, NEXT, and WiUTE: will (■orroimt' 
after the line being processor. 1 . when QUIT' occurs. 

2) APPEND, CHANGE, INSERT: will terrain.tte after ; 
the text lino, being processed when OUIT occurs, 
is completed. 

3) SUBSTITUTE: will terminate after the substi- 
tution, being processed when QUIT occurs, is 
completed . 

4) search: will terminate after 'ha line. !.■..• i n" 
searched when Q'JIT occurs, is • .my. nut In 
contain the searched tor it em'. 
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RESTRICTIONS 



ociated 



Unfortunately, 'there are currently some probWms 

with block boundaries. These are itemizee. as fol'.ovr: 

1) You cannot DELETE lines from more- th if. one bloe.t 
at a time. 

2) Vou cannot DELETE the 'first line ,.f « block unless 
you DELETE the entire block. 

3) You cannot EDIT the first line of a block. 

«l) You cannot CF>.NGE lines Iron more than one block 
at a time. 

5) You cannot CiEKGE'the first line of n block unless 
you ORANGE the entire Llock. 

6) You cannot introduce text which has 3PL COMM'ie, 

PROGRAM, or END in it unless it will go in between. 

alreadv existing blocks—at the very end. or at the 
i 

very beginning. This applies to APPK'a'. CHANGE. 
INSiCRT, and REAO. 

7) You cannot SUHi'l'irJ m E a string which has SPL cOMMct; , 
PROGRAM, or ENI' i". them for anything. 
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APPENDIX 
LINE KDIT OF. CONCEP TS 

The line editor is the input interface between, the teletype 
and M1CS. When era of the MlCS subsystems needs a lino of 
teletype input, the line editor receive;- and retains control 
until the user is done composing a new line, at which time 
control and the entire new line are returned to the controlling 
subsystem. 

Instead of typing in all the characters, the user may compose 
the new lino by editing the "old line." The content of the 
old line is determined by the controlling sv.bsy.iten and in 
usually the previour, new line received by that subsystem. 

Both the new line and old line have character pointer'! 
associated with them; initially these are seh to the first 
character position. As characters are tynod in -rem th'j key- 
board, both character pointers are advanced. r'.n.s . if the 
old string initially has "ACCDE" in it, the r.ew string 
nothing, "XYZ" is typed and the editing facility is used to 
copy the next character from the old to the new string', tse 
resultant new string will contain "XY7,P" . 

The user communicates with, the editina facility by typing 
control characters. In some instances, t i- editing facility 
also listens to one character following > control character 
(indicated by C below). The list bo low trivi-; the different 
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control characters and their resultant actions. A control 
character is typed by depressing the CTRL key while typing 
a normal character. Using control A as an example, control 
characters are siar.ified as A c , Note that normal character 
typing advances the pointers of both the old and new strings 
except during Insert mode (between K c brackets). 

LINE EDITOR COMMANDS: 



A'- 
3- 






Backspace one character in new string and print "■ ". 
Print CR-LF and finish. 

Copy one character from old string to new strino and print 
copied character. 

Copy rest of old line into rev.' line and finish, printing 
copied characters and CR-LF. 

Initiate and terminate' insert node, print "■'" or ">". 
Characters typed after "<" and before "V will not advance 
the old line character pointer. 
No type version of D c . 
(Nothing) 

Copy rest of old line into new line, printing copied 
characters. Just like D° except C5-LF is not printed and 
line is not finished. 

Insert spaces in now line up to next tab ston, printing 
them,' advance old lir.e that number of spaces.. NOTE: if 
current character is in column »4 and tabs are 5 S, 10, I c 
will insert 5 spaces. The first tab Ls tie I. at 3 and there- 
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C C 






after .it five space increments (8, 11 , 18, 23... 6.3, 6R) . 

Puts CP.-t.-F into new string and continues to accept input 

after printing CR-Lf . 

(Nothing) 

(Mo thine;) 

Print CR-LF and finish. 

It.it-krpace ont! chr\i"<ic L'.'r in both old f, new string and 

print "i " . 

Copy characters up to C in old line into new line. 

printing; if the very next character ir, c_, the following 

one is used to terminate! tile copy. 

Skip over character.? in old line; up to C printim; ""/.'' 

for each character; if very next Chirac tor ir, C_, the 

following one in lined to term; .n,i to the skip. 

Restart lino anew, printing "• ". Reset old and new 

string character pointer!;. 

Retype-' unaligned by printing LF, rest of old lint:, 

CR, LF, all of new line': coniirvic '. < accept input. 

Skip one character in old line, print "■'". 

Retype a.liynecl (like P. ) - Note, control characters 

printed by the 'W convention will count a<; 1 ci'-ar^r- 

tor; thus, the number of characters unaligned indicates 

the nuT-iber of control characters in Mi'? line'. 

Copy, to next tab, characters from Kim old line into the 

new line -- just like I c only pri.nl copied ehar.io! -as. 

i instead of spaces. 

Take C literally unless it is less thin 10''- in which 
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case add lOOg, print C_, advance old line character 




pointer by 1. 


w c 


Backspace hew line to first blank preceding a non-blank. 




Thus, "ABC DEF W c " will end Up as "ABC " as will 




"ABC DW° " , 


X C C 


Skip thrc.iqh C - like p c . 


Y<? 


Concatenate new and old strings into old string rind 




re-edit, print. CR-LF. 


Z^ 


Co; 


Y through C, like. C . 
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/ in -detail sufficient for the user. Inform.il syntax ,-j;id .'seman- 
tics arc given Cor all ce—r.;.\nds. including a careful treat o.ient 
of pousiblo program st\it;-o with respect to suspended tanks. 
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The co^mund proeouyor will "xlst at "my time in one of several 


medos. These ore: 


exocu tive & 
verbose editor * 
quick editor : 
expert debugger 
beginner debugger = 


Ibscli of ther.e modes will have its own herald ,v; i.rd mm ted . 


S?"j is entered .in executive tvede ?.:id will l.'iu s type an & . 


To change modes merely type the; herald for the denirod ir.ode. 


immediately after another herald and continue. Thin new 


node, will stick until -"mother herald is typed. 


The executive and editor modes will be discussed elsewhere. 


The debugger is now described. 


A cwwi.'.nd in bogir.nc-r node; is o£ the general form, 


-<coinn:!nd> f<roodif icrs>: ] [arguments! 


By <comm ind>, is nonnt a sufficient number of characters to 


distinguish the command from all others, leiminated by e. 


blank. The modifiers ar'c a collection of single letters ! 

i 


terminated by a colon. The nature of the arguments depend on , 


this command. The entire command is terminated by a carriage 


return . 


A command in expert node is of the general form 


-[■fmodifiers>] <cem,T.nrid> [<args>J 


The command will be a single punctuation character and will 


thu:; rerve to terminate the modifiers and eliminate? the need 


to type e blank after the command. 
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C < ■ r - ~ '; nd__d oj>c r ~2 *-SUL? 

MOI'jK # 

This eoinr'.and takes no arguments (other than modifiers) and sots 

the debugger permanently into all the specified fflo'li's. 

00T0 $ 

Taker, tvo optional argunents. First is the editor address of 

the st.t'ii.'.'tic.-ii.a to trans fei" control to. Second is r.u-rJbor of 

break points to pass through beforo control is returned ts the 

debugger. 

C'Omtvkus , 

Takes ono optional argument, the number of break points to p.iss 
through. This command will ignore a break on the first n- a te- 
non t executed. 

STKP + 

Takes one optional argument, the number of statements to exc- 



BREAK 

Takes one argument, which is an editor address or interval at 

which to set a breakpoint (s ) . 

KIM, [ 

Takes ono argument, an editor address or interval of break- 
points) to clear. 
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display J | 

] 
No arguments, lists all breakpoints. 

TPACE 

Tikes two arguments, the first is an eaitri address. The trace 

breakpoint is set to thii address and the program ' eor.H nue.-n . ' 

The second argument specifies the number of breakpoints to pass 

through. 

REPORT ( 

The tiii-;' may specify that the value of any number of expres- 
sions bo printed out at a break. Executing the REPORT cor^tand 
(takes no arguments) puts the debugger in a state where it is 
editing a line interpreted as a list of expressions separate! 
by corw.ars, whose values should be printed .in the break mes- 
sage. 

NOTES: 

Whenever a program breaks, a b reak message is printed. 'Die 
message will always start with the break address. The state- 
ment where the break occurred becomes the "current line" for 
the editor. To cause the source statement whore the break oc- 
curred to be printed, use the L modifier with the program exe- 
cution commands (COkTINUE, STEP. TP.ACE, GOTO!. To suppress 
this, use Lhe Q ("quiet") modifier. 
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A conditional breaking facility can bo evoked in the to 1 1 o w i ng 
•-.My: If at the time control is trans Cared to the user program, 
a function with name BREAK! is defined, then the debegger will 
cause, tin; program to bo i nt-Tereted and the function rRKAK' will 
be called after every statement is executed. Thus any user spe- 
cified condition can be tasted for after every s t ntement. 

To clear nil break points use tho modifier A with the K1U. com- 
mand. 

To set or clear the trace break point use the modifier T with 
the r.K!:AH or KILL command. 

To cause a break measago at every breakpoint passed through use. 
an E modifier with tho STEP, CONTINUE, TRACE, and GOTO cou- 
mand3. To Mii!:n 3 break message only at the end use an '1 .;iodi- 

j fier. If no modifier is used, then the current mode will take 

I effect. 



The user can specify that the GOTO, TRACE and CO.VI'I .VUE com- 
mands only count tho breakpoint on the current statement when 
counting the number of breakpoints passed through, by using the 
I! modifier. The C modifier causes any breakpoint encountered 
to be counted. 

rotes on transfers of control to user program: the debuyger 
has the facility for maintaining two programs at once, They 
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will hereafter be referred to as Task 1 and Task 2. The de- 
bugging may exist in a stape called the zapped state (reset 
state) in v.hich the call stack and hardware stack are initia- 
lized and the debugger is not aware of any tasks. using a '" 
li'.oJi (.'.tor with the mode, co;;ii;',.;id will zap the state. Kli-m a trna.: 
fer of control statement is executed a number of things must be 
considered before transfer of control is allowed: 

1) Do any sta tements or functions need recompiling? If so, 
they are recompiled. If the. break statement has laoved the 
P-coenter must be changed accordingly. 

2) Is continuing legal? It isn't if the break statement has 
boon modified or if tho call stack cannot be unvoamd cor- 
rectly (see i-elow). 

3) Under what task should the program be run? 

4) Should the call stack ' ■> unwound and how much? 

Control can be traii3fered to the program by the GOTO, CONTINUE, 
TRACE and STEP commands or by a direct statement. CONTINUE, 
TRACE and STEP are legal only if 

a) a Task 1 program exists 

b) the P-eounter is not in the middle of the statement 

Task 1 broke in, if the statement has been modified 
since the break. 



«"pi«r*s*at'.^P"V 



nrfr^smnnw- ■^•mvnmmr^ 



n 



f) 






:' j*. 



: "> ,■; * 



P/c-n.r 



6 



To transfer control, first all modified statements or functions 
jr; recoraoil-d. Then the action taken is determined by tlio 



following diagram. 



call st nek nut 



GOTO 



or I'. 



t stnti 
in in 3 
TURN 

Othe 



call slack 

?. n .'i?ty.- 



-.d or 


unwind si; nek 




-CiU'llt 


transfer con- 


illegal 


GOTO 


trol an Tr.sk 1 






unwind stack 


transfer con- 




transfer con- 


trol as Task 


:rwi ye 


trol as Tank 2 


1 with call 
stack sot to 
dummy local 
environment 



t'nwind stack: The stack must, lie unwound far enough so that any 
call op. the stack, in a statement that was subsequehtly 
;;;0('ifi"d, is removed from the stack. Once this is accom- 
plished the stack must be further unwound until the tot? 
function on the stack is the same as the current editor 
function. Unwinding the call stack requires user confirma- 
tion. If the ^;tack is unwound the P-counter is set to the 
instruction after the top call on the unwound stack. 



vare stack pointer are saved. When Task 2 tormina toe 


for 


any reason the saved state and pointer are restored. 
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This command takes JJ, 1, or 2 arguments. 
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then the last quantity printed is printed again 
If 1. then the value of the expession is printed 
If 2, then the arguments are' interpreted as bounds and 
everything in between is printed inclusive. 

rhd value of an expression can be printed in one of the fol- 
lowing formats 

signed integer 

unsigned integer 

real number 



6-bit characters 6 
3-bit characters 8 
pointers 

(with B, S, I t U) P 
double precision 
(with R or 0) 

complex 

unsigned octal 

field descriptor 

label or function 

string 

-.'.chine code 

lcnglong 



The type of the root operand in the parse tree vill determine 
the format in which the value of an expression will be print«d_ 
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ri! v.s.i .'! pf.T'.-Ticiiii; tnode is sot, 
use a V modifier. 



To suppress the pern. '-neat noae 



,V,ol.her format may be specified instead by using one of the 
-,.!-ovo noduiw. The examine ceiamand will abort if whot is 
.roclUOiitod doesn't make aer.ne.. 

Foe the two argument variety of the ccmind both argui.ier.t3 must 
be refer. -nee-, 'in the serine of the SPL manual) i.e... he simple 
or have a principal operator which is indirection or sub- 
scripting, to be meaningful. Further, both arguments must spe- 
cify addresses in the 3a.no environment, i.e., the same common 
block or function, if they are both simple variables or sub- 
tier ip tod variable:",. 

The two arguments otherwise ate interpreted as absolute add- 
resses and the contents bf the cells between the iiv/d addresses 
are printed in tlie specified mode. 

!<t;XT > 

This command takes one optional argument, h, It prints t..e next 
n quantities following the List quantity (location) printed- I: 
the argument is missing, it is taken to be 1. The format used 
for each quantity printed is taken from the symbol table unless 
overridden by modifiers in the command. Reaching the end of an 
environment (function, coanon block, absolute) terminates the 
1 connand. ' .. , — — — — ~ 



*!» 



-^^ 



x>r.t 



p,c-n.r 

Sl'LDS/tI-17 



;.~n 



exceot 



.'RSVIOUS < 

rhis coaaatid works the sa;r.e a:5 . 

rather than following, quantities are {jrinsed 



.hat the n preceding. 



This co«n.v>d take, two arguments. The first specter. 

ber of levels, of local environment on th, stack to jump back. 

A negative number means go forward en the stack. The second 

argument if specified is a function name 

n levels of that function. 

ri!ra ) 

Not yet specified. 



the r.'im- 



In this case au^p 



All state renters, etc., will K- put in fixed blare, in 

current global environment by the debugger and n,ay be refe 

lo with built-in synbols, to wit tin eider); 

PC' program counter 
AP. ,X , 

i ,s " I i-wori accumulator 

CR' j 

DRV 

XR 1 index register 

LTV local, environment 

GR' global en\'ironraent 

SR; states register 
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Mode 

. A 
B 
C 
D 
Z 

F 
G 



I 
J 
K 
L 

M 
K 


P 



T«'.ilTjR 0!-' MODUS 

Us^d_With Mj^iUUJ'il 

KI!,L clour all 'breakpoints 

EXAM! KH. MODE label or function 



EXAMIKB, MODE 



double prncision (P.,0) 



GOI'O, C0.'.TU-.'UK, ETEF, prim mossij']a at every broaV 
'iRACE, MO OB point p.\si5yd 

field descriptor 

. all breakpoints encountered 
are counted 

only breakpoint on current 
statement is counted 



EXAMINE, MOOR 

OOOO, CONTINUE, 
i'MCE, .MODE 

GOTO, COOL'UIIE, 
'"RACK, MODE 

EXAM'. NE, MOOS 



GO'rO, continue, 
s.-ep, trace, mode 

EXiJO \'E, MODE 

GOTl'. COVTIKUE, 

STYS', TRACE, MODE 

EXAMINE, MODE 

EXAM 1 S'E, MODE 

goto, cosrurjr,, 

Si'EP, TRACE, MODS 

exam in.';, mode 
kxamim3, mode 

_brj : :ak j _kil;, 



signed integer 



print source at break 

machine coda 

print message only o.t end 

unr-igned octal 

pointers (D,S,I,D) 

do not print source at break 

real number 

string 
s Qt^c^^r_tx?- c - f LJirj'3-KBMnt 






X.J 



U 
V 

w 
x 

Y 

3 
6 
S 



EXA.MIME, MODE 

EXAMINE, MODE 

EXAMINE, MODE 

EXAMINE, MODE 

MODE 

EXAMINE, M JOE 

EXAMINE, MODE 
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SPLD3/-V-1? i 11 ! 
unsigned uvti-'ier 
suppress pernanent mode 
longlong 
complex 

sv:p state 

6-bit cr,-' r.icters 

8-bit Cha i .irter? 



n 
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TO: 

i-aCM: 

SUBJECT 



Pater Beut >,eh y /frfc>rjfj-l 



DATE: January 16, 1970 



I.ATKST UPDATES TO SPL 



ELfoctivc irrjriedinlr: iy (i.e. thu fir pi- version of SPL dated 
1- J. 4-70 or later), numbers input to executive commands aw 
normally taken as decimal, A number followed by B is taken 
as octal. This applies to .ADDRESS, . B01.MDA.RTf, , OCTAL, and 
the new ccrarnanJs listed belcw. For example, to list the 
■Jtility ring in he;.;!, use .0 -".tf^ftjES 5777772. 

The following commands ire added: 

.GO Starts execution on the bare machine. 

See below for details. 

.LIf : T PHYSICAL Lints the physical irr.p oC the simulated 

CPU. Entries whose existence is implied 
by the software tables (rr.ap, F:-!T, CUT) 
but have not actually been loaded into 
the map are enclosed in parentheses. 

.MOVE nl n2 Moves (copies), the contents of page 

nl into page n2. A positive page 
number refers to a page in the normal 
virtual ri'-'v.ory; a negative number, to 
a page in the simulated real memory. 
Each of nl and n? may be cither a page 
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. BOUNUMiy nl n2 



.SKT FORMAT a 



. SKT MAilGTt! n 



. SET IN! ' KST n 



number (between -31 and 127 J er 
a page address (between -174&J0B 
and 7742003). 

Sets the boundary between RSGS 
and CS at nl, and also sets the 
G-Rcgister v.^dp for the appropriate 
ring to n2. 

Sets tlia spacing and indentation 
format according to n, as follows: 

n spacing j^^S^^AES. 

1 standardised as input 

2 as input as input 

3 standardized standardized 

4 .->.s input standardised 

Sets the position of the first 
column for standard indentation 
to n. The left edge of the paper 
is position ^. 

Sets the amount of indentation per 
level of logical nesting to n. 
With standardized indentation, a 
non-ccmv.'nt lino if- listed with 
n^'hn. leading blanks, where n^ * 



n 
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n 
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is the "VIRGIN parameter; ri' 
is tile INDENT parameter, arid k 
if the number of enclosing IF 
and FOR blocks. 



.SET OFFSET ri Continuation lines arc indented 

by no>.h,4n,, where n, is the 
OFFSET parameter. 

The parameters listed above are printed out by .LIST FIAGS 
and are initialised as follows: FORVJVT = , MARGIN = 10, 
INDENT = 3, OFFG:-:T = -1. .ZERO FOPJ-tAT will reset FORMAT to 
its initial value, etc. 

The following glitch list includes all presently known problems 
which are either (a) coTimon.ly encountered, or (b) ,schcdu:!cd ,, 
to be fixed. In view of the increased work load I am presently 
handling, no other g].itche£ will bo fixed beyond those marked 
with $ on the list, except in cases of extreme hardship. 

1) Glitches 1, 4, 5, G, ? from the racno of 12-19-63. 
$ 2) Glitches 2, 3, 7, 8, 13 from the memo of 12-19-69. 
$ 3) Intrinsic functions called with BLL n-.ay not be defined 
by the user. 

Glitches 10, 11, and 1? from the memo of 12-19-59 have already 
been fixed. 

Bare machine mode has been mo-o'ily specified and coded. The 
comments about disk ar.d drun; stimulation in the mei-io of 12-19-69 



